Generar pdf en power 9.0

108 views
Skip to first unread message

MACKS

unread,
Dec 23, 2014, 12:45:56 AM12/23/14
to tech...@googlegroups.com
Estimados:
Una consulta al generar archivos pdf utilizando una impresora virtual pdf y Ghostscript en maquinas de 64 bits el archivo pdf no lo genera:

Alguien sabe algún otro método:

dw_1.Object.DataWindow.Export.PDF.Method = Distill!
dw_1.Object.DataWindow.Printer = "PDFCreator" //"CutePDF Writer" //Impresora virtual CutePDF
dw_1.Object.DataWindow.Export.PDF.Distill.CustomPostScript="Yes" //No permitir Postscript
if dw_1.SaveAs(ls_arc_pdf,PDF!,true) <> 1 then //Exportamos a PDF
messagebox("Error","Hubo un error al generar el archivo PDF")
return -1
end if

Saludos,..

Mario Sanhueza

unread,
Dec 24, 2014, 7:58:07 AM12/24/14
to tech...@googlegroups.com
Hola, yo lo hago exactamente igual en PB 11.5 pero utilizo estos driver AFPL Ghostscript (gs854w32.exe/gs854w64.exe) de esa forma nunca mas tuve problemas para generar PDF.
Primero tienes de desinstalar los driver anteriores de Ghostscript antes de cargar los AFPL ... esto lo saque de un documento de sybase hace tiempo. Espero que te sirva
Saludos
Mario

Atte.
Mario Sanhueza Nizza
Ing. (E) en Comp. e Inf.
Ing. Civil Industrial
09-97159104
masa...@systemtec.cl


--

---
Has recibido este mensaje porque estás suscrito al grupo "TechEra" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a techeraz9+...@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/d/optout.

MACKS

unread,
Jan 20, 2015, 3:05:42 PM1/20/15
to tech...@googlegroups.com
Estimados al generar un PDF desde powerbuilder a este lo pueden edita; alguien sabe como generarlo no EDITABLE

este es el código que utilizo

dw_1.Object.DataWindow.Export.PDF.Method = Distill!
dw_1.Object.DataWindow.Printer = "PDFCreator"   
               
    //"CutePDF Writer"     
//Impresora virtual CutePDF
dw_1.Object.DataWindow.Export.PDF.Distill.CustomPostScript="Yes" 
  //No permitir Postscript
if dw_1.SaveAs(ls_arc_pdf,PDF!,true) <> 1 then 
               
   //Exportamos a PDF
       
messagebox("Error","Hubo un error al generar el archivo
PDF")
    return -1
end if
--------------------------------------------
On Tue, 12/23/14, MACKS <pros...@yahoo.com> wrote:

Reply all
Reply to author
Forward
0 new messages