Ruta Impresora específica
Publicado por Compumako (72 intervenciones) el 04/03/2011 16:16:22
Amigos de Access 2007:
He tenido un fastidio con esto de abrir panel de control, elegir impresora predeterminada ya sea PDF o Impresora de tinta y hacer que un informe se imprima a donde lo necesito:
Necesito que el Botón que hice para imprimir informe en la impresora PDF y mantener como predeterminada la impresora de Papel.... me funcione..!!
Sé que lo siguiente no sirve... No me funcionó.... pero es algo así
Private Sub BtnImprimirPDF_Click()
On Error GoTo Err_BtnImprimirPDF_Click
Dim stDocName As String
stDocName = "Remision"
DoCmd.OpenReport "Remision", cViewDesign, , , acHidden
Reports("Remision"). Printer = Printers("MyPDFCreator&qu ot;)
DoCmd.Close acReport, "Remision", acSaveYes
DoCmd.OpenReport "Remision"
Exit_BtnImprimirPDF_Click:
Exit Sub
Err_BtnImprimirPDF_Click:
MsgBox Err.Description
Resume Exit_BtnImprimirPDF_Click
End Sub
Gracias
He tenido un fastidio con esto de abrir panel de control, elegir impresora predeterminada ya sea PDF o Impresora de tinta y hacer que un informe se imprima a donde lo necesito:
Necesito que el Botón que hice para imprimir informe en la impresora PDF y mantener como predeterminada la impresora de Papel.... me funcione..!!
Sé que lo siguiente no sirve... No me funcionó.... pero es algo así
Private Sub BtnImprimirPDF_Click()
On Error GoTo Err_BtnImprimirPDF_Click
Dim stDocName As String
stDocName = "Remision"
DoCmd.OpenReport "Remision", cViewDesign, , , acHidden
Reports("Remision"). Printer = Printers("MyPDFCreator&qu ot;)
DoCmd.Close acReport, "Remision", acSaveYes
DoCmd.OpenReport "Remision"
Exit_BtnImprimirPDF_Click:
Exit Sub
Err_BtnImprimirPDF_Click:
MsgBox Err.Description
Resume Exit_BtnImprimirPDF_Click
End Sub
Gracias
Valora esta pregunta
0