Atlanta Custom Software Development 

   Search        Code/Page

User Login



Forgot the Password?
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
» Regular Expr Tester
» Free Tools

InstallPrinter - Install a new printer on the system

Total Hit ( 4947)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article



Click here to copy the following block
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 Long
End Type

Private Declare Function AddPrinter Lib "winspool.drv" Alias "AddPrinterA" _
  (ByVal pName As String, ByVal Level As Long, pPrinter As Any) As Long
Private 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: " & bOK
Function 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
  ' 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 If

End Function

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with, SQL Server and other MS technologies. He is, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )

Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.