Ik heb een programma, wat alleen op een epsonprinter mag printen, maar heb problemen met uitlezen van de beschikbare printers.
'Set the specified printer driver as the "default printer."
For Each prnPrinter In ?.Printers
If LCase(Left(prnPrinter.DeviceName, 5)) = "epson" Then
Application.ActivePrinter = prnPrinter
msgbox "Epsonprinter gevonden."
Exit For
End If
Next
Wat moet er op "?.Printers" staan? Wie kan mij helpen?
'Set the specified printer driver as the "default printer."
For Each prnPrinter In ?.Printers
If LCase(Left(prnPrinter.DeviceName, 5)) = "epson" Then
Application.ActivePrinter = prnPrinter
msgbox "Epsonprinter gevonden."
Exit For
End If
Next
Wat moet er op "?.Printers" staan? Wie kan mij helpen?