Imprimir el pdf a una impresora especifica

[celex]

B. dias es posible imprimir un archivo de pdf a una impresora especidifca, les resumo; tengo una aplicacion VB6.0 la cual se neceesita imprimir el archivo de pdf, lo mas usual es usar el siguiente codigo siempre y cuando se tenga la impresora predeterminada

Código PHP:

    (Componente: AcroPDF.dll  agregado) 
  AcroPDF1.setShowToolbar False 
  AcroPDF1.LoadFile "c:\docto.pdf" 
  AcroPDF1.printAllFit True  
   

Pero que pasa, en la mayoria de las maquinas se dispone de dos o mas impresoras, y hay una que es esclusiva para imprimir documentos especificos por la calida de impresion y papel, etc a esta la llamamos imprime_laser.
Entonces, hice una pantalla que nos permitiera ver el archivo, y mandar a imprimir por medio de un boton, se debe de ir a imprime_laser, esto fue asignado para personalizar la impresion, y llevar un control de que tantas impresiones se hacen. Se puede usar la pantalla de dialogo para imprimir pero lo mas correcto es que no presente nada y se vaya directamente a la impresora que le asignemos mientras los usuarios siguen conservando la impresora la prederminada

Código PHP:

  AcroPDF1.setShowToolbar False 
AcroPDF1.LoadFile "c:\docto.pdf" 
AcroPDF1.printWithDialog 
he hecho hice pruebas para asignar las propiedades de Printer pero creo que no es posible, o desconosco si es correcto hacer asi:  
 
 Dim prt As Printer 
 prt = Printers 
 prt.DeviceName ("CutePDF Writer") --->error de compilacion (Uso no valido de la  propiedad) 
 AcroPDF1.setShowToolbar False 
 AcroPDF1.LoadFile "c:\docto.pdf" 
 AcroPDF1.printAllFit True  
   

hay alguna forma de hacer imprimir el pdf a una impresora especifica
les agradesco, gracias

[A.H.H]

Hola en el siguiente ejemplo se usa un listbox, un commandbutton, y el control AcroPdf de Adobe Acrobat.

Primero listas las impresoras disponibles en un listbox y cargas el archivo.pdf en el control AcroPDF1:

Private Sub Form_Load()
Dim x As Printer, impr As String
'Listamos en el control List1 las impresoras instaladas'
For Each x In Printers
List1.AddItem x.DeviceName
Next

AcroPDF1.LoadFile ("ruta a mi archivo.pdf")
End Sub

Despues con un boton command1, haces que la impresora elegida de la lista del listbox sea la que imprime el archivo.pdf , que para ello usamos una funcion llamada por ejemplo Establecer_Impresora() que se expone mas abajo.

Private Sub Command1_Click()
'Le enviamos la impresora que se encuentre seleccionada en el control List1'

If List1.Selected(List1.ListIndex) Then
Establecer_Impresora List1
End If
'imprimimos todo el documento pdf'

AcroPDF1.printAll
End Sub

'Esta es la funcion para establecer la impresora elegida en el listbox'

Private Function Establecer_Impresora(ByVal NamePrinter As String) As Boolean
On Error GoTo errSub

'Variable de referencia
Dim obj_Impresora As Object

'Creamos la referencia
Set obj_Impresora = CreateObject("WScript.Network")
obj_Impresora.setdefaultprinter NamePrinter

Set obj_Impresora = Nothing

'La función devuelve true y se cambió con éxito
Establecer_Impresora = True
MsgBox "La impresora se cambió correctamente", vbInformation
Exit Function


'Error al cambiar la impresora
errSub:
If Err.Number = 0 Then Exit Function
Establecer_Impresora = False
MsgBox "error: " & Err.Number & Chr(13) & "Description: " & Err.Description
On Error GoTo 0
End Function

FUENTE-->http://www.recursosvisualbasic.com.a...erminada.htm#1


SALU2

[celex]

OK, gracias yo realice los cambios y ya se puede imprimir seleccionado la impresora