Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Drucken über Makro

Drucken über Makro
09.08.2015 12:08:18
Hans
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken über Makro
09.08.2015 12:22:54
Sepp
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

Anzeige
AW: Drucken über Makro
09.08.2015 14:13:55
Hans
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige