Office: Aufruf von einem Drucker

Hallo ich habe ein Problem hinsichtlich eines Druckers

Meine Exceldatei(2003) (zuhause) funktioniert und harmonisiert perfekt mit meinem Drucker zu hause

Die Exceldatei(2010) auf einem anderen Rechner mit einem anderen Drucker funktioniert gar nicht.

mir ist bewusst dass ich bei jedem anderen Rechner mein Makro anpassen muss. Und zwar mit dem jeweiligen Drucker. ABER bei excel 2010
funktioniert das nicht. Bei 2003 habe ich die Druckerauswahl mit dem Makrorecorder aufgenommen. Heraus kam die Zeile

application.activeprinter = "HP LAserJet 1100(MS)_Lokal auf LPT1:"

der neue drucker heißt "Brother MFC-490 CW Printer" und ist über USB angeschlossen. Mir fehlt dieses LPT1

das selbe problem habe ich mit meinem "Free XP PDF auf Ne04:" was ist das Ne und woher weiß ich welches ich bei meinem neuen Rechner brauche

Ziemlich ernstes problem bin an einer deadline... alles läuft und hängt nur an dem Drucker wenn mir jemand helfen könnte wäre ich super dankbar

Liebe Grüße

 

Hallo N123456789,

der Aufruf des Druckdialoges

Code:

Application.Dialogs(xlDialogPrint).Show

funktioniert oder reicht nicht?

 

mhm ja klappt vielen dank für die codezeile aber ich war auf der Suche nach einer direkteren Lösung.

ich wollte eben durch den befehlt

application.activeprinter = "..... auf .....:" den Drucker direkt anwählen. Leider fehlt mir das .... zwischen "auf" u. ":"

bei der alten codezeile stand LPT1 aber der neue drucker ist ein USB drucker

 

Hallo N123456789,

ich weiß nicht ob Dir das weiterhilft (wenn nicht bin ich mit meinem Wissen und meinen Ideen auch eh am Ende),
aber könntest Du nicht den Drucker per Makro auslesen lassen und das Ergebnis als Variable im Code weiter verwenden?
Dann müsstest Du auch nicht immer Deinen Code anpassen, das würde er selber machen. ;O)

Code:

Option Explicit

Dim strActivePrinter As String

Public Sub printer()
strActivePrinter = Application.ActivePrinter
End Sub

 

das ist ne gute idee für ein anderes problem was ich in den nächsten Tagen gepostet hätte :)

aber gut ich werde mit:

Application.Dialogs(xlDialogPrint).Show

weiterverfahren.

nur noch eine letzte frage. Der code öffnet mir ein Dialogfeld mit allen installierten druckern. Wenn ich mich für einen entscheide und OK drücke wird gedruckt. So soll es sein. Jedoch bricht mein Programm bei "Abbrechen" oder dem "windows X in der Ecke" nicht ab?? kannst du mir da helfen?
</pre>

 

Hallo N123456789,

natürlich bricht Dein Code nicht ab, denn Du brichst ja nur den Druckdialog/Druckauftrag ab.

Um Deinen Code abzubrechen musst Du die Buttons des Druckdialoges auswerten.
Das kann man beispielsweise so machen:

Code:

Option Explicit

Dim strMsgBox As String


Public Sub Druckdialog()

    'Druckdialog
    strMsgBox = Application.Dialogs(xlDialogPrint).Show
    If strMsgBox = "Falsch" Then Exit Sub

End Sub

Wenn das Sub verschachtelt durch andere Subs aufgerufen wurde, müssen diese natürlich auch noch abgebrochen werden.
Das geht entweder mittels

Code:

If strMsgBox = "Falsch" Then End

Hier werden ALLE Subs sofort abgebrochen.

Oder mittels Variable des Typs Boolean, die an die anderen Subs weitergegeben wird.

Dies kann natürlich unerwünscht sein.
Möglicherweise möchtest Du vorher durch den Code noch etwas machen lassen.
Dann würde ich es so lösen:

Code:

Option Explicit

Dim strMsgBox As String
Dim bolCancel As Boolean


Public Sub Druckdialog()

bolCancel = False

    'Druckdialog
    strMsgBox = Application.Dialogs(xlDialogPrint).Show
    If strMsgBox = "Falsch" Then bolCancel = True
    
    If bolCancel = False Then
    
        ' hier alles machen lassen was passieren soll
        ' wenn der Druckdialog nicht abgebrochen wird
        
    ElseIf bolCancel = True Then
    
        ' hier alles machen lassen was passieren soll
        ' wenn der Druckdialog abgebrochen wird
        
    End If

End Sub

Ich hoffe geholfen zu haben.

 

Hallo N123456789,

ich habe mir nochmal Deinen Eingangspost in Ruhe durchgelesen.
Wenn Ich den richtig verstehe, so suchst Du einen Befehl "Drucken".
Also ohne weitere Umwege oder Auswahlmöglichkeiten soll Excel einfach drucken was ihm aufgetragen wird.
Ist das so richtig?

Dann könntest Du den Befehl ".PrintOut" benutzen.
Im Modul könnte das so in der Art aussehen:

Code:

Option Explicit

Public Sub Drucken()

    ThisWorkbook.Worksheets(1).PrintOut
    
End Sub

 

Ja und nein... Ich will zwar die Seite drucken und der Code wurde wie der von oben von dir unter "wichtig" gespeichert. Aber es ging ja um die direkte Druckeranwahl. Jedoch bedanke ich mich recht herzlich für dein Engagement. Dank dir kann ich morgen die Deadline halten. Ich hätte nie gedacht dass so was "blödes" noch das Projekt riskieren könnte. Aber das passiert mir jetzt nicht mehr :)

Danke Achim super Mann ;)