Drucken über Schaltbutton Makro

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

Betrifft: Drucken über Schaltbutton Makro
von: Hans
Geschrieben am: 09.08.2015 19:56:24

Hallo Forum,
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

Bild

Betrifft: AW: Drucken über Schaltbutton Makro
von: DD
Geschrieben am: 09.08.2015 20:51:05
Moin Hans,
die Version von Sepp funktioniert bei mir leicht modifiziert.
ExecuteExcel4Macro "PRINT(1,,,2,,,,,,,,2,""Application.ActivePrinter"",,TRUE,,FALSE)"
Gruß Dieter_D

Bild

Betrifft: AW: @jDieter_D
von: Hans
Geschrieben am: 09.08.2015 21:12:11
Moin moin Dieter,
hab nur wenig Ahnung von VBA
Kannst du mir deinen kompletten Code schicken? Dann versuche ich das mal..
HANS

Bild

Betrifft: AW: @jDieter_D
von: DD
Geschrieben am: 09.08.2015 21:19:16
Moin Hans,
geht mir auch wie dir,
habe auch nur Basiskenntnisse in Excel und VBA.
Ich hatte nur in der einen Zeile "Application.ActivePrinter" in "" gesetzt.
Gruß Dieter_D
Option Explicit

Private Sub CommandButton4_Click()
Dim strPrinter As String
    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


Bild

Betrifft: AW: @jDieter_D
von: Hans
Geschrieben am: 09.08.2015 21:25:23
Moin moin,
joooo.... das geht bei mir auch !!! PRIMA !!
Ich Volltrottel habe vorhin meine Vorlagendatei gekillt (gelöscht) und nun laufen natürlich einige Makros doch nicht mehr so wie gewollt...
Na wer keine Arbeit hat, macht sich halt welche
Vielen Dank für die Hilfe....
HANS

 Bild

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