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
Das Makro läuft 1 bis 2 mal ohne Probleme, wenn ich die Datei aber schließe und neu aufrufe, bekomme ich immer den Fehler: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