Drucken über Schaltbutton Makro
09.08.2015 19:56:24
Hans
und nun noch das letzte Problem für heute:
Ich benutze diesen Code um zwei Datenblätter drucken zu lassen
Private Sub CommandButton4_Click()
' Drucken Makro
' Tastenkombination: Strg+d
Sheets("Rechnung").Select
Application.ActivePrinter = "Brother MFC-5490CN Printer (Kopie 1) auf Ne03:"
ExecuteExcel4Macro _
"PRINT(1,,,2,,,,,,,,2,""Brother MFC-5490CN Printer (Kopie 1) auf Ne03:"",,TRUE,,FALSE)"
Sheets("Eingabe").Select
End Sub
Laufzeitfehler 1004
Die Methode ActivePrinter für das Objekt_ Application ist fehlgeschlagen..
Woran kann das liegen?
Dieses Makro von Sepp hab ich schon versucht.... geht aber nicht, weil ich es nicht an den Schaltbutton Befehl anpassen kann.
Private Sub CommandButton4_Click()
Dim strPrinter As String
' Drucken Makro
' Tastenkombination: Strg+d
Sheets("Rechnung").Select
Application.Dialogs(xlDialogPrinterSetup).Show
Debug.Print Application.ActivePrinter
ExecuteExcel4Macro _
"PRINT(1,,,2,,,,,,,,2," & Application.ActivePrinter & ",,TRUE,,FALSE)"
Sheets("Eingabe").Select
Vielen Dank für eure Hilfe
HANS