Mit folgendem Makro können Sie automatisch vom aktiven Tabellenblatt eine Druckdatei erzeugen:

Sub Druck_in_Datei()
    SendKeys "blattdruck.prn{enter}"
    ActiveWindow.SelectedSheets.PrintOut _
    Copies:=1, PrintToFile:=True, Collate:=True
End Sub

Den Namen für die Druckdatei können Sie auch noch selbst vorgeben. In diesem Beispiel lautet er "blattdruck.prn".

You have no rights to post comments