(vb6) Jag försöker skriva ut en Datareport och styra till en skrivare men lyckas inte!
Använder den här koden som ligger i en modul och anropas i DataReport_Initialize()
Public Function SetDefaultPrinter(ByVal DeviceName As String) As Boolean
On Error Resume Next
Dim prThis As Printer
If Printers.Count > 0 Then
For Each prThis In Printers
If prThis.DeviceName = DeviceName Then
Set Printer = prThis
SetDefaultPrinter = True
Exit For
End If
Next prThis
End If
End Function

mmm... lurigt.
Tycker inte om att du har två olika DeviceName testa att ändra enl detta.
<code>
Public Function SetDefaultPrinter(ByVal LPTnamn As String) As Boolean
'On Error Resume Next
Dim prThis As Printer
If Printers.Count > 0 Then
For Each prThis In Printers
MsgBox prThis.DeviceName
If prThis.DeviceName = LPTnamn Then
Set Printer = prThis
SetDefaultPrinter = True
Exit For
End If
Next prThis
End If
End Function
</code>

Ok, tack
Men samma resultat.

Räknar den upp dina Printer:s via MsgBox:en ?
Remarka 'On Error Resume Next får du något felmeddelane ?

Jag tycker att det ser helt OK ut. Jag kan inte testa för jag har bara en Printer

Inga error.
Använder denna funktion på annat ställe där man väljer skrivare via combobox & då väljer jag skrivare utan problem. Nu hämtar jag inställningen ur fil och skickar in den automatiskt innan jag skriver ut rapport via datareport.