Drucken über Makro

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Drucken über Makro
von: Hans
Geschrieben am: 09.08.2015 12:08:18

Drucken über Makro
Hallo Forum,
ich habe ein paar Makros in meiner Tabelle eingebaut. Bis vor kurzem gingen auch die Makros zum Drucken auch noch ohne Probleme aber nun zicken die rum.
VBA habe ich mit dem Makrorecorder aufgenommen.
Nun habe ich diese Fehlermeldungen! Was mache ich falsch??
Vielen Dank für eure Hilfe
HANS
Hier mein Code und Fehlermeldung 1

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
Fehlermeldung1
Microsoft Visual Basic
Laufzeitfehler '1004':
Die Methode 'ActivePrinter' für das Objekt *_Application' ist fehlgeschlagen
Hier mein Code und Fehlermeldung 2
Private Sub CommandButton6_Click()
'
' PDF_Drucken Makro
'
' Tastenkombination: Strg+p
'
    Sheets("Rechnung").Select
    Application.ActivePrinter = "PDF24 PDF auf Ne04:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDF24 PDF auf Ne04:"",,TRUE,,FALSE)"
    Sheets("Eingabe").Select
End Sub

Fehlermeldung2
Microsoft Visual Basic
Laufzeitfehler '1004':
Die Methode 'ActivePrinter' für das Objekt *_Application' ist fehlgeschlagen

Bild

Betrifft: AW: Drucken über Makro
von: Sepp
Geschrieben am: 09.08.2015 12:22:54
Hallo Hans,
vielleicht stimmt der Druckername nicht.
Teste mal.

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

End Sub


Gruß Sepp


Bild

Betrifft: AW: Drucken über Makro
von: Hans
Geschrieben am: 09.08.2015 14:13:55
Moin moin Sepp,
am Drucker scheint es nicht zu liegen!
In den beiden Schaltbutton sind ja zwei verschiedene Drucker hinterlegt. Jedoch wird nach der Code-Änderung nur der PDF Drucker geöffnet...
Hab einfach nochmal die Makros neu aufgenommen...
HANS

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Drucken über Makro"