[02/03] Add a Printer

[GrimmReaper]

Hello guys, I'm trying to add a new printer (printers/faxes).
I'm using the following:

Module Module1
    Public Declare Auto Function OpenPrinter Lib "winspool.drv" _
                            (ByVal pPrinterName As String, _
                            ByRef phPrinter As IntPtr, _
                            ByVal pDefault As PrinterDefaults) As Int32
    Public Declare Function DeletePrinter Lib "winspool.drv" _
                         (ByVal hPrinter As IntPtr) As Int32
 
    Public Declare Function ClosePrinter Lib "winspool.drv" _
                (ByVal hPrinter As IntPtr) As Int32
    Private Declare Function AddPrinter Lib "winspool.drv" _
       Alias "AddPrinterA" _
      (ByVal pServerName As String, _
       ByVal Level As Int32, _
    ByVal pPrinter As PRINTER_INFO_2) As Int32
    Structure PRINTER_INFO_2
        Public pServerName As String
        Public pPrinterName As String
        Public pShareName As String
        Public pPortName As String
        Public pDriverName As String
        Public pComment As String
        Public pLocation As String
        Public pDevMode As Int32  'DEVMODE
        Public pSepFile As String
        Public pPrintProcessor As String
        Public pDatatype As String
        Public pParameters As String
        Public pSecurityDescriptor As Int32  'SECURITY_DESCRIPTOR
        Public Attributes As Int32
        Public Priority As Int32
        Public DefaultPriority As Int32
        Public StartTime As Int32
        Public UntilTime As Int32
        Public Status As Int32
        Public cJobs As Int32
        Public AveragePPM As Int32
    End Structure
 
    Structure PrinterDefaults
        Public pDataType As String
        Public pDevMode As Int32
        Public permissions As Int32
    End Structure
 
    Public Const PRINTER_ACCESS_ADMINISTER As Int32 = &H4
    Public Const STANDARD_RIGHTS_REQUIRED As Int32 = &HF0000
    Public Const PRINTER_ACCESS_USE As Int32 = &H8
    Public Const PRINTER_ALL_ACCESS As Int32 = _
                      STANDARD_RIGHTS_REQUIRED Or _
                      PRINTER_ACCESS_USE Or _
                      PRINTER_ACCESS_ADMINISTER
 
    Sub RemovePrinter(ByVal PrinterName As String)
        Dim hPrinter As IntPtr
        Dim PrinterDefs As New PrinterDefaults
        Dim rtn As Int32
        PrinterDefs.permissions = PRINTER_ALL_ACCESS
        rtn = OpenPrinter(PrinterName, hPrinter, PrinterDefs)
        rtn = DeletePrinter(hPrinter)
        rtn = ClosePrinter(hPrinter)
    End Sub
    Sub addprinter1(ByVal PrinterName As String)
        Dim pi2 As PRINTER_INFO_2
        With pi2
            .pPrinterName = PrinterName
            .pPortName = "RPT2:"
            .pDriverName = "Apple LaserWriter 12/640 PS"
            .pPrintProcessor = "WinPrint" '?
        End With
        Dim rtn As Int32
        rtn = AddPrinter("", 2, pi2)
    End Sub
    Sub Main()
        'addprinter1("test1")
        RemovePrinter("test")
    End Sub

But nothing happens!
What else must I do?

[RobDog888]

Is this a local printer or a network printer?

[GrimmReaper]

Hello, Thanx for the reply!.
it's just a Local Printer.
It's one of those "default" printers listed in the list in Printers / faxes

[RobDog888]

Well my code works for public network printers but maybe you can try it on your local printer?

http://www.vbforums.com/showthread.php?t=308544

[GrimmReaper]

Hi!
I've tried it like this:

Shell("Rundll32 printui.dll,PrintUIEntry /ga /c\\Grimm \'Lexmark 3200 Color Jetprinter'", vbNormalFocus)

So, I didn't include the servername parameter in there.
But, it said that the operation cannot be completed because the connection to the server was lost
Have I done something wrong?

[RobDog888]

I take it that your printer name is "Grimm 'Lexmark 3200 Color Jetprinter'" with the single quotes?

You need your local computer name or try local and see if that works.

[GrimmReaper]

I take it that your printer name is "Grimm 'Lexmark 3200 Color Jetprinter'" with the single quotes?

You need your local computer name or try local and see if that works.

The computer's name is Grimm, and the printer is Lexmark 3200 Color JetPrinter.
So I've done something wrong?

[RobDog888]

Just a little bit.

You need it in this format and see if it works.

Dont forget to do the netstart and stop to refresh as explained in my comments in my codebank thread.

Shell "Rundll32 printui.dll,PrintUIEntry /ga /c\\Grimm/n\\Grimm\Lexmark 3200 Color JetPrinter", vbNormalFocus

[GrimmReaper]

Hello again!
Thanx for all your effort

OK, it doesn't throw any errors, but I see nothing in Printers / Faxes
I have Stopped and started the spooler after I executed the shell command, any other problems?