Results 1 to 3 of 3
  1. #1
    Join Date
    Feb 2002
    Posts
    108

    Unanswered: Is there a way to get the name of the current printer ?

    Is there a way to get the name of the current printer ? I want to use it in code.

  2. #2
    Join Date
    Feb 2004
    Location
    New Zealand
    Posts
    1,424
    Provided Answers: 8
    Someone posted this code

    Code:
    Public Function SelectPrinter(ByVal PrinterName As String) As Boolean
    Dim prThis As Printer
    If Printers.Count > 0 Then
    For Each prThis In Printers
    If prThis.DeviceName = PrinterName Then
    Set Printer = prThis
    SelectPrinter = True
    Exit For
    End If
    Next prThis
    End If
    End Function
    So By reading the Printer.DeviceName should be the Selected Printer

    Code:
    Public Function MySelectedPrinter() As String
    MySelectedPrinter = Printer.DeviceName
    End Function
    For the to work you will have to read the current select printer first and change it to what ever then chnage back to what it was
    hope this help

    See clear as mud


    StePhan McKillen
    the aim is store once, not store multiple times
    Remember... Optimize 'til you die!
    Progaming environment:
    Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010
    VB based on my own environment: vb6 sp5
    ASP based on my own environment: 5.6
    VB-NET based on my own environment started 2007
    SQL-2005 based on my own environment started 2008
    MYLE
    YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.

  3. #3
    Join Date
    Feb 2002
    Posts
    108
    This worked perfectly.

    Thank You !

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •