Retreive the VB Object "printer" Corresponding to the Default Printer

Paste the following code into it's own BAS module (or convert it to a class if required)

'MS Windows API Function Prototypes
private Declare Function GetProfileString Lib "kernel32" Alias _
     "GetProfileStringA" (byval lpAppName as string, _
     byval lpKeyName as string, byval lpDefault as string, _
     byval lpReturnedString as string, _
     byval nSize as Long) as Long

' Retreive the vb object "printer" corresponding to the window's
' default printer.
public Function GetDefaultPrinter() as Printer
    Dim strBuffer as string * 254
    Dim iRetValue as Long
    Dim strDefaultPrinterInfo as string
    Dim tblDefaultPrinterInfo() as string
    Dim objPrinter as Printer

    ' Retreive current default printer information
    iRetValue = GetProfileString("windows", "device", ",,,", _
                strBuffer, 254)
    strDefaultPrinterInfo = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
    tblDefaultPrinterInfo = Split(strDefaultPrinterInfo, ",")
    for Each objPrinter In Printers
        If objPrinter.DeviceName = tblDefaultPrinterInfo(0) then
            ' Default printer found !
            Exit for
        End If

    ' If not found, return nothing
    If objPrinter.DeviceName <> tblDefaultPrinterInfo(0) then
        set objPrinter = nothing
    End If

    set GetDefaultPrinter = objPrinter
End Function

Now to test the routine, place the following code into a Form_Load routine :

private Sub Form_Load()
    Dim objPrinter as Printer

    set objPrinter = GetDefaultPrinter()
    MsgBox "Default printer is: " + objPrinter.DeviceName
    MsgBox "Driver name is: " + objPrinter.DriverName
    MsgBox "Port is: " + objPrinter.Port

    set objPrinter = nothing
End Sub


  • Printer status

    Posted by Legacy on 08/19/2003 12:00am

    Originally posted by: MSCHMITT

    How can i get the network printer status under VB ?
    All possible problems with it (Out of order,Need paper...).


  • How to change the default printer

    Posted by Legacy on 05/20/2003 12:00am

    Originally posted by: K.K.Birnale

    Getting the default printer is OK.But when already a printer is installed and working as a default to the machine,in that case how to change the default printer through coding

    If there is any solution i may be let to the same please

  • Printer Type

    Posted by Legacy on 01/22/2003 12:00am

    Originally posted by: PBS

    Is it posible to determine the default printer type
    is the printer a laser or Dot matrix printer

  • ?? Is it possible to find the number of pages printed in a printer

    Posted by Legacy on 12/13/2002 12:00am

    Originally posted by: D. Ramesh babu

    if any time is given, is it possible to find out the number of pages printed by the printer ?

  • Thanks

    Posted by Legacy on 07/24/2002 12:00am

    Originally posted by: chew

    This code worked just fine. Might want to add a little bit of error checking though if object is Null when returned. Otherwise, fantastic.


    Posted by Legacy on 07/04/2002 12:00am

    Originally posted by: T.A.VENKAT


    Getting the default printer is OK.But when already a printer is installed and working as a default to the machine,in that case how to change the default printer through coding

    If there is any solution i may be let to the same please


  • Retreive the vb object "printer" corresponding to the Default Printer

    Posted by Legacy on 04/16/2002 12:00am

    Originally posted by: Evans Okosodo

    This code woked! Thanks to the donor and

  • Default printer

    Posted by Legacy on 01/05/2002 12:00am

    Originally posted by: Ravi

    This example much easier to get the default printer.

  • Capture Printer Queue from Vb

    Posted by Legacy on 11/21/2001 12:00am

    Originally posted by: Samanatha Wijeratne

    capture printer data Queue from VB . and get them into
    data file.

  • Good One

    Posted by Legacy on 11/07/2001 12:00am

    Originally posted by: Suresh P

    Hi masson,
    this is good one. congrats
    I have a doubt. I have sent a page to printer. How will i know the print status of the page ?
    (where the page is lying now ? is it in the print queue of the printer or page is printing or print job is over...... )


  • Loading, Please Wait ...

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Anthony Christie, the Chief Marketing Officer for Level Communications, is responsible for customer experience, worldwide marketing and product management. In this informative asset, he shares his insights into why a private network connection to cloud-bases applications is the right decision for your enterprise. Download now to find out more.

  • Moving from an on-premises environment to Office 365 does not remove the need to plan for disruptions or reduce the business risk requirements for protecting email services. If anything, some risks increase with a move to the cloud. Read how to ease the transition every business faces if considering or already migrating to cloud email. This white paper discusses: Setting expectations when migrating to Office 365 Understanding the implications of relying solely on Exchange Online security Necessary archiving …

Most Popular Programming Stories

More for Developers

RSS Feeds

Thanks for your registration, follow us on our social networks to keep up-to-date