Setting a network printer?

[btt423]

I'm working on an application that needs the capability to poll a database for items to be printed, and then print to one of several printers that are listed in a database table.

How would I go about doing this in vb?

Any help would be appreciated!

Thanks, Brinson

 

[CajunCenturion]

Within VB there is a Printers collection. The following code snippet loads all of the available printers into a combobox, from which the user may select the desired printer.

Dim lPrn_AvailPrinter   As Printer
Dim lInt_DefaultIndex   As Integer
Dim lStr_DefPrtName     As String   

Printer.TrackDefault = True
lStr_DefPrtName = Printer.DeviceName
cboPrinters.Clear
' Load the default printer first
cboPrinters.AddItem lStr_DefPrtName

For Each lPrn_AvailPrinter In Printers
' skip the default printer since its already loaded
   If (lPrn_AvailPrinter.DeviceName <> lStr_DefPrtName) Then
      cboPrinters.AddItem lPrn_AvailPrinter.DeviceName
   End If
Next

Once the user has selected a printer from the combo box, set the Printer object to the selected printer.

Dim lStr_PrinterName    As String
Dim lPrn_AvailPrinter   As Printer
   
lStr_PrinterName = cboPrinters.Text
For Each lPrn_AvailPrinter In Printers
   If (lPrn_AvailPrinter.DeviceName = lStr_PrinterName) Then
      Set Printer = lPrn_AvailPrinter
...

and proceed with your program Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein