printing to a specific printer?

[johnnyv]

I have written an application to print 2 different types of documents, english and french. I need to be able to direct the document to a printer based on it's type ie english goes to one printer french to another.

these printers are accessed via a network, they are not local to the pc that the app will run on

I can not get the program to print to any other printer other than the default printer

I have used the following code to find the engligh printer in question

For Each UsePrinter In Printers
If (UsePrinter.DeviceName = "\\Choprintsvr\oper-hp#1&quot Then
Set printer = UsePrinter
End If
Next

but when I print the document it goes to the default printer

Can I direct the document to a non default printer or do I have to change the default printer for the pc to be able to print to that printer?


thanks in advance

 

[vb5prgrmr]

Private Declare Function SetDefPrt Lib "Winspool.drv" Alias "SetDefaultPrinterA" (ByVal PrtName As String) As Long

Private Declare Function GetDefPrt Lib "Winspool.drv" Alias "GetDefaultPrinterA" (RetStr As String, ByRef BufSz As Long) As Long

 

[vb5prgrmr]

'****WARNING****

Above Post did not mean to submit the GetDefPrt


IT DOES NOT WORK!

SORRY

But the Set default printer does work. All you need to do is pass in the printer name as you would see it in the printer dialog box

Once again my aploigies for the second API which does not work. (I went to change windows and click in the wrong place)

 

[johnnyv]

Thanks for your reply

I feel abit silly for asking this but could you clearify your code for me. You are declaring a funuctoin called what?

what is the code that is executed inside of the function ?

thnaks again for the responce

 

[vb5prgrmr]

'I hope this explains what I tried earlier. Put this code
'in a module and once again sorry for putting up my test
'code by mistake.

Option Explicit

Private Declare Function SetDefaultPrinter Lib "Winspool.drv" Alias "SetDefaultPrinterA" (ByVal PrntrName As String) As Long



Public Function SetPrinter(PrinterName As String) As Boolean

On Error Goto SetPrinterError

Dim RetVal as Long

If Trim(PrinterName) = "" Then Exit Function

RetVal = SetDefaultPrinter(PrinterName)

If RetVal = 1 Then
SetPrinter = True
End If

Exit Function
SetPrinterError:

msgbox err.description

End Sub

'There that looks better!

'What you would need to do is know the name of the printer
'you want to change to and pass it to this function. You
'know how to get the names of the printer on the system
'already

 

[johnnyv]

Thanks I will give that a try

 

[johnnyv]

Working perfectly
thanks for your help !!!!