AW: 2 x Drucken über Button
21.07.2011 19:26:49
fcs
Hallo Jürgen,
diese Aufgabenstellung kann man auch weitestgehend mit dem Makrorecorder lösen.
Nachfolgend eine selbsterstellte Prozedur. Die genaue Bezeichnung des Drucker erhälst du, wenn du den Druckvorgang mit dem Makro-Recorder aufzeichnest.
Wenn du in dem Tabellenblatt immer den Bereich A1:F52 drucken willst, dann solltest du unter Seite einrichten den Druckbereich entsprechend einstellen. Dann kann die Einstellung im Code weglassen werden.
Gruß
Franz
Sub Drucken_HP_LJ_1000_2_Kopien()
Dim wks As Worksheet
Dim sDruckerAktiv$, sPrintArea As String
Set wks = ActiveSheet
'Druckeinstellungen merken
sPrintArea = wks.PageSetup.PrintArea
sDruckerAktiv = Application.ActivePrinter
'Druckbereich und Drucker setzen, Drucken
wks.PageSetup.PrintArea = "A1:F52"
Application.ActivePrinter = "hp LaserJet 1000 auf Ne02:"
wks.PrintOut Copies:=2, collate:=True
'Druckeinstellungen wieder herstellungen
wks.PageSetup.PrintArea = sPrintArea
Application.ActivePrinter = sDruckerAktiv
End Sub