faxen_an
Peter
mit diesem Makro versende (als Fax) ich das Aktive Blatt. Ich möchte mit diesem Makro, wenn es möglich ist, drei Blätter verschicken. Es handelt sich um die Blätter Register_01, Register_02, Register_03. Ich möchte jetzt nicht diesen Makro auf allen drei Blättern einzelnen starten - ich möchte von Blatt Register_01 alle drei Blätter als Fax verschicken.
Sub faxen_an()
Application.ActivePrinter = "TOPCALL Fax auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"TOPCALL Fax auf Ne00:"
'Application.ActivePrinter = "\\BKUSVA44012\duidr20110 auf Ne04:"
End Sub
allen noch einen schönen Feiertag ....
Gruß Peter
Anzeige