|
Erstellt am:
09 Nov 2006 15:18
AW: PDF aus Access erstellen
Hallo
Die folgende Routine setzt den Drucker mit dem Namen strPrinterName zum Defaultdrucker.
___________________________________________________
Private Sub SelectPrinter(strPrinterName As String)
Dim thisPrinter As Printer
For Each thisPrinter In Printers
Debug.Print thisPrinter.DeviceName
If thisPrinter.DeviceName = strPrinterName Then
Set Printer = thisPrinter
End If
Next
End Sub
___________________________________________________
Herzliche Grüße
Wolfgang
|