Drucker auswählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo
Es muss auch der Druckeranschluss mit übergeben werden.
Probier mal das hier

'*****************************
'Drucker ändern
Sub StartDruckerSetting()
    If Change_Printer_Setting("Adobe PDF") = True Then
        MsgBox "Aktueller Drucker ist " & Application.ActivePrinter, vbInformation + vbOKOnly, "Änderung"
    Else
        MsgBox "Drucker konnte nicht gefunden werden", vbCritical + vbOKOnly, "Änderung"
    End If
End Sub

Function Change_Printer_Setting(strDruckerName As String) As Boolean
    Dim i As Integer, conPort As String
    Dim oldPrinter As String
    oldPrinter = Application.ActivePrinter
    On Error Resume Next
    'Hauruck Methode
    'Fehler treten auf wenn der Anschluss nicht bekannt ist
    'Zuweisungsschleife starten
    '99 Anschlüsse sollten reichen :-)

    For i = 1 To 99
        conPort = Format(i, "00")
        Application.ActivePrinter = strDruckerName & " auf Ne" & conPort & ":"
        If Application.ActivePrinter <> oldPrinter Then
            Change_Printer_Setting = True
            Exit Function
        End If
    Next i
End Function
'Ende Code Sequenz
'**********************************************

Gruss Rainer

Hallo
Tut mir leid,...aber beide methoden sind ganz einfach, auch für ältere und unbedarfte.
In meinem Fall, ist es egal wo der Drucker angeschlossen ist. Ich geh alle Anschlüsse einfach durch. Wenns klappt ist gut, wenn nicht kommt die entsprechende Meldung. Das geht so schnell dass du es nicht merkst.
In deinem Codebeispiel sieht das so aus.
Dim Drucker As String
Drucker = Application.ActivePrinter
If Change_Printer_Setting("Adobe PDF") = True Then
MsgBox "Aktueller Drucker ist " & Application.ActivePrinter, vbInformation + vbOKOnly, "Änderung"
Else
MsgBox "Drucker konnte nicht gefunden werden", vbCritical + vbOKOnly, "Änderung"
End If
Range("$B$3:Total").Select
Selection.PrintOut
Unload Me
Application.ActivePrinter = Drucker
End Sub
In Ransis Beispiel werden die installierten Drucker aus der Registry ausgelesen und geprüft ob irgendwo PDF in der Druckerbezeichnung vorkommt. Der Drucker wird dann als aktiv gesetzt. Kann aber sein, dass wenn mehrere PDF Drucker installiert sind, der Druck nicht unbedingt auf dem Drucker ausgegeben wird denn du erwartest. Wenn es ein speizifischer Drucker sein soll, dann musst du das "*PDF*" entsprechend detaillieren.
In deinem Codebeispiel eingebaut schaut das so aus
Dim Drucker As String
Drucker = Application.ActivePrinter
Call PDF_Drucker_als_Standarddrucker
Range("$B$3:Total").Select
Selection.PrintOut
'wozu bitte soll das gut sein ?
'Das macht doch nur Sinn wenn eine UF aktiv ist.
Unload Me
Application.ActivePrinter = Drucker
End Sub
Wenn du den Drucker bzw. den anschluss genau kennst, den PDF-Drucker mal als aktiven setzen und dann gib mal im direktfenster des VB-Editors ein
Debug.Print ActivePrinter
Dann kommt sowas raus
Adobe PDF auf Ne05:
Dann kannst du den Drucker auch mit einer einfachen Codezeile umsetzen
Application.Activeprinter = "Adobe PDF auf Ne05:"
In deinem Codebeispiel sähe es dann so aus
Dim Drucker As String
Drucker = Application.ActivePrinter
Application.Activeprinter = "Adobe PDF auf Ne05:"
Range("$B$3:Total").Select
Selection.PrintOut
Unload Me
Application.ActivePrinter = Drucker
End Sub
Das wäre der einfachste Weg,... aber wie gesagt. Die Anschlüsse können variieren und sind nicht immer gleich weil Windows die Drucker selbst verwaltet.
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread