CommonDialog.ShowPrinter
XenaUndercover
Ich möchte eigentlich nur herausfinden welchen Drucker der Anwender in
der CommonDialog Box ausgewählt hat.
Nach dem ich alle Properties des Controls mir mit Debug.Print ausgeben
lassen habe, muste ich feststellen das hier der Name des ausgwählten
Drucker nicht auftaucht. Also versuchte ich es über die hDC
Eigenschaft. Nur leider Funktioniert das alles nicht. Also, wer kann
mir hier weiter helfen? Wie gesagt ich brauch den Namen des Druckers
den der Anwender ausgewählt hat.
Sub PrinterSelectLocal()
Dim i As Integer
CommonDialog1.Flags = cdlPDReturnDC
CommonDialog1.PrinterDefault = False
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowPrinter
For i = 0 To Printers.Count - 1
Debug.Print CommonDialog1.hDC & " " & Printers(i).hDC
If CommonDialog1.hDC = Printers(i).hDC Then
Debug.Print "Ausgewählter Drucker: " & Printers(i).DeviceName
Exit For
End If
Next i
Debug.Print "Standard Drucker: " & Printer.DeviceName
Exit Sub
ErrHandler:
Debug.Print "Anwender drückte Abbrechen "
End Sub