Get Printers via PrtDevNames

[maxhugen]

Does anyone know how to get a list of the Printers and drivers etc, using PrtDevNames?

I'm using types:

Type str_DEVNAMES
    RGB As String * 4
End Type
Type type_DEVNAMES
    intDriverOffset As Integer
    intDeviceOffset As Integer
    intOutputOffset As Integer
    intDefault As Integer
End Type

All I obtain from this is:

DriverOffset=8
DeviceOffset=18
OutputOffset=39
intDefault=0

MTIA


Max Hugen
Australia

 

[genomon]

If you are using Acc 2002 or greater, use the new printer object. This code was downloaded from MSDN:

Sub ShowPrinters()
    Dim strCount As String
    Dim strMsg As String
    Dim prtLoop As Printer
    
    On Error GoTo ShowPrinters_Err

    If Printers.Count > 0 Then
        ' Get count of installed printers.
        strMsg = "Printers installed: " & Printers.Count & vbCrLf & vbCrLf
    
        ' Enumerate printer system properties.
        For Each prtLoop In Application.Printers
            With prtLoop
                strMsg = strMsg _
                    & "Device name: " & .DeviceName & vbCrLf _
                    & "Driver name: " & .DriverName & vbCrLf _
                    & "Port: " & .Port & vbCrLf & vbCrLf
            End With
        Next prtLoop
    
    Else
        strMsg = "No printers are installed."
    End If
    
    ' Display printer information
    MsgBox Prompt:=strMsg, Buttons:=vbOKOnly, Title:="Installed Printers"
    
ShowPrinters_End:
    Exit Sub
    
ShowPrinters_Err:
    MsgBox Prompt:=Err.Description, Buttons:=vbCritical & vbOKOnly, _
        Title:="Error Number " & Err.Number & " Occurred"
    Resume ShowPrinters_End
    
End Sub

All I ask is a chance to prove that money can’t make me happy.

 

[maxhugen]

Thanks, but I need to get the printer info for an A2000 application

Max Hugen
Australia