Ramón:
Con la ayuda de José Lalín y basado en un hilo de José Gimenez, pudé tomar
el EMF generado en el Preview y convertirlo a PDF en forma automática, esto
es para que cualquier factura electrónica mostrada en el preview sin
necesidad que el usuario tenga que pinchar en el botón Generar a PDF
(Facilidad del Image2PDF.dll) esta se genere al disco duro para
reimpresiones posteriores.
El código es el siguiente:
// ESTE CODIGO GUARDA EL DISCO DURO EL File.emf
CLASS TPreviewControl FROM XPreviewControl
METHOD Create( oParent )
ENDCLASS
METHOD Create(oParent) CLASS TPreviewControl
Super:Create(oParent)
WITH OBJECT ::oPreviewDC
nWidth := GetDeviceCaps(:hPrinterDC, PHYSICALWIDTH)
nHeight := GetDeviceCaps(:hPrinterDC, PHYSICALHEIGHT)
oEmf := TEnhMetaFile():Create(:hPrinterDC,
'File.emf',:aEmf[::nPage]:nMmsWidth, :aEmf[::nPage]:nMmsHeight,'')
:aEmf[::nPage]:Paint(oEmf:hNewDC, 0, 0, nWidth, nHeight)
MoveTo(oEmf:hNewDC, 0, 0)
LineTo(oEmf:hNewDC, nWidth, 0)
LineTo(oEmf:hNewDC, nWidth, nHeight)
LineTo(oEmf:hNewDC, 0, nHeight)
LineTo(oEmf:hNewDC, 0, 0)
oEmf:Close()
oEmf:End()
END WITH
RETURN(Self)
// ESTE CODIGO CONVIERTE EL File.emf A File.pdf UTILIZANDO FUNCIONES DE
Image2PDF.dll
If File('File.emf')
I2PDF_LoadDLL()
I2PDF_License('xxx-xxxx-xxxxx-xxxxxx-xxxxxxx')
I2PDF_AddImage('File.emf')
I2PDF_MakePDF('File.pdf',0)
I2PDF_FreeDLL()
If File('File.pdf')
FErase('File.emf')
EndIf
EndIf
Anexo todas las funciones documentas es un PRG comprimido a RAR
Espero te sirvan
Saludos
Alex
escribió en el mensaje de noticias:[email=4e3ee46c@svctag-j7w3v3j....]4e3ee46c@svctag-j7w3v3j....[/email]
Alguien tiene la ayuda de TImagePDF o el fuente de XImagePDF ?
Estoy intentando ajustar el envío a PDF en el Preview, pero algunos comandos
que ahí se usan, no están en la ayuda de Image2PDF.
Saludos y gracias de antemano.
Ramón Zea
Móvil.: 993-231.62.29
zeasoftware@hotmail.com
--
Attached files Image2PDF.rar (11.6 KB)Â