InstallPrinter – Install a new printer on the system

Private Type PRINTER_INFO_2    pServerName As String    pPrinterName As String    pShareName As String    pPortName As String    pDriverName As String    pComment As String    pLocation As String    pDevMode As Long    pSepFile As String    pPrintProcessor As String    pDatatype As String    pParameters As String    pSecurityDescriptor As Long    Attributes As Long    Priority As Long    DefaultPriority As Long    StartTime As Long    UntilTime As Long    Status As Long    cJobs As Long    AveragePPM As LongEnd TypePrivate Declare Function AddPrinter Lib "winspool.drv" Alias "AddPrinterA" _    (ByVal pName As String, ByVal Level As Long, pPrinter As Any) As LongPrivate Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As _    Long) As Long' Install a new printer on the system'   sPrinterName is the name to assign to identify the printer'   sDriver is a string identifying the driver for the printer'   sPort is the printer's COM port'   sComment is a comment to associate to the printer item'' Example:'    Dim bOK As Boolean'    bOK = InstallPrinter("Epson", "Epson Stylus COLOR 440", "LPT1:", ,'  "My favourite printer")'    MsgBox "Printer added: " & bOKFunction InstallPrinter(ByVal sPrinterName As String, ByVal sDriver As String, _    Optional ByVal sPort As String = "LPT1:", Optional sServer As String, _    Optional sComment As String) As Boolean    Dim hPrinter As Long    Dim PI As PRINTER_INFO_2        ' fill the PRINTER_INFO_2 struct    With PI        .pPrinterName = sPrinterName        .pDriverName = sDriver        .pPortName = sPort        .pServerName = sServer        .pComment = sComment        .pPrintProcessor = "WinPrint"        .Priority = 1        .DefaultPriority = 1        .pDatatype = "RAW"    End With        ' add the printer    hPrinter = AddPrinter(sServer, 2, PI)    ' if successful close the printer and return True    If hPrinter <> 0 Then        ClosePrinter hPrinter        InstallPrinter = True    End IfEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

The Latest

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a

chrome os developer mode

How to Turn on Chrome OS Developer Mode

Google’s Chrome OS is a popular operating system that is widely used on Chromebooks and other devices. While it is designed to be simple and user-friendly, there are times when users may want to access additional features and functionality. One way to do this is by turning on Chrome OS

homes in the real estate industry

Exploring the Latest Tech Trends Impacting the Real Estate Industry

The real estate industry is changing thanks to the newest technological advancements. These new developments — from blockchain and AI to virtual reality and 3D printing — are poised to change how we buy and sell homes. Real estate brokers, buyers, sellers, wholesale real estate professionals, fix and flippers, and beyond may