AW: Warum anderen Befehl oT
08.09.2003 20:40:41
El
Hallo zusammen!
Das funktioniert
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Das funktioniert nicht!
UserForm2.PrintForm
es handelt sich um etiketten drucker smatlabel 100
und lex s 1855 standars drucker
Hier habe ich zwei makors:
Sub etikette_SMART_1()
Workbooks.Open Filename:= _
"C:\ECS\ETIKETTE ECS.xls", _
Application.ActivePrinter = "Smart Label Printer 100 auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Das funktionirt und druckt etikette
Aber bei Userform funktiniert nicht!
Sub etikette_SMART()
Application.Dialogs(xlDialogPrinterSetup).Show
' oder
Application.ActivePrinter = "Smart Label Printer 100 auf Ne00:"
UserForm2.PrintForm
End Sub
'Application.ActivePrinter = "Smart Label Printer 100 auf Ne00:"
'Application.ActivePrinter = "\\FIBU-SERVER\Lex S 1855 (pvslal1) auf Ne01:"
Egal was ich tun
Userform2 wird immer auf Lex S 1855 gedruckt.
Kann mir jemend Hilfen?
Danke in voraus?
MFG
EL