Druckerauswahl über Command Button
10.06.2003 12:18:02
tom
weiß jemand ein kleinwenig Rat??
Also, meine Datei möchte ich auf einem bestimmten Drucker über Command Button ausdrucken. Folgender Code ist eingefügt leider tut sich nichts.
Sub Drucken()
Sheets(1).PageSetup PrintArea= "$A$1:$DZ$149
Application. Active Printer= Druckername
Sheets(1).PrintOut Copies:=1,Collate.True
End Sub
Sieht jemand wo es hierbei klemmt?
Danke!
tom