| Forum: Visual Basic |
Thema:
AW: PDF aus Access erstellen |
Von:
Wolfgang Uhr (
09.11.2006 15:18) |
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
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
