Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Imprimir el pdf a una impresora especifica

Estas en el tema de Imprimir el pdf a una impresora especifica en el foro de Visual Basic clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 15/11/2011, 08:58
 
Fecha de Ingreso: abril-2007
Mensajes: 48
Antigüedad: 12 años, 5 meses
Puntos: 0
Imprimir el pdf a una impresora especifica

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:
  (ComponenteAcroPDF.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
  #2 (permalink)  
Antiguo 15/11/2011, 11:49
Avatar de A.H.H  
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 178
Antigüedad: 12 años, 5 meses
Puntos: 4
Respuesta: Imprimir el pdf a una impresora especifica

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:

Cita:
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.

Cita:
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'

Cita:
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
  #3 (permalink)  
Antiguo 25/11/2011, 14:08
 
Fecha de Ingreso: abril-2007
Mensajes: 48
Antigüedad: 12 años, 5 meses
Puntos: 0
Respuesta: Imprimir el pdf a una impresora especifica

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

Etiquetas: control, especifica, impresora, pdf, vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:48.