Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://xbaseforum.de/
Xbase++ PDF Class von Edgar Borger (Email : softsupply@terra.commbr ) - einfach und schnell Meine Klasse in Verbindung mit QuickPDF ... kann alles, aber ist auch komplexer und teurer (QuickPDF)
Code: Alles auswählen
******************************************************************
// Enumeration WdSaveFormat
#DEFINE wdFormatDocument 0 && Microsoft Office Word format.
#DEFINE wdFormatDocument97 0 && Microsoft Word 97 document format.
#DEFINE wdFormatTemplate 1 && Word template format.
#DEFINE wdFormatTemplate97 1 && Word 97 template format.
#DEFINE wdFormatText 2 && Microsoft Windows text format.
#DEFINE wdFormatTextLineBreaks 3 && Windows text format with line breaks preserved.
#DEFINE wdFormatDOSText 4 && Microsoft DOS text format.
#DEFINE wdFormatDOSTextLineBreaks 5 && Microsoft DOS text with line breaks preserved.
#DEFINE wdFormatRTF 6 && Rich text format (RTF).
#DEFINE wdFormatEncodedText 7 && Encoded text format.
#DEFINE wdFormatUnicodeText 7 && Unicode text format.
#DEFINE wdFormatHTML 8 && Standard HTML format.
#DEFINE wdFormatWebArchive 9 && Web archive format.
#DEFINE wdFormatFilteredHTML 10 && Filtered HTML format.
#DEFINE wdFormatXML 11 && Extensible Markup Language (XML) format.
#DEFINE wdFormatXMLDocument 12 && XML document format.
#DEFINE wdFormatXMLDocumentMacroEnabled 13 && XML document format with macros enabled.
#DEFINE wdFormatXMLTemplate 14 && XML template format.
#DEFINE wdFormatXMLTemplateMacroEnabled 15 && XML template format with macros enabled.
#DEFINE wdFormatDocumentDefault 16 && Word default document file format. For Microsoft Office Word 2007, this is the DOCX format.
#DEFINE wdFormatPDF 17 && PDF format.
#DEFINE wdFormatXPS 18 && XPS format.
// Enumeration WdExportFormat
#DEFINE wdExportFormatPDF 17 && Export document into PDF format.
#DEFINE wdExportFormatXPS 18 && Export document into XML Paper Specification (XPS) format.
******** Excel
#define xlTypePDF 0
******************************************************************
function ConvToPDF(datei)
local retw:="", oWord, oDoc, oExcel, oWorkBook
local cSaveFile
cSaveFile:=substr(datei, rat( '\', datei)+1)
cSaveFile:=Left(cSaveFile, rat( '.', cSaveFile))+"PDF"
if ".DOC" $ upper(datei)
oWord := CreateObject( 'Word.Application' )
if !empty(oWord)
oWord:visible := .F.
** Dokument schreibgeschtzt öffnen, falls in Bearbeitung
oWord:documents:open(datei,.F.,.T.)
oDoc:=oWord:ActiveDocument
oDoc:saveas( cSaveFile, wdFormatPDF )
oDoc:close()
oWord:Quit()
oWord:destroy()
retw:=cSavefile
endif
elseif ".XLS" $ upper(datei)
oExcel := CreateObject( 'Excel.Application' )
if !empty(oExcel)
oExcel:visible := .F.
oExcel:Application:DisplayAlerts:=.F.
** Dokument schreibgeschützt öffnen, falls in Bearbeitung
oWorkBook:=oExcel:workbooks:open(datei,,.T.)
oWorkBook:ExportAsFixedFormat(xlTypePDF,cSaveFile)
oExcel:Quit()
oExcel:Destroy()
oExcel:=nil
retw:=cSavefile
endif
endif
return retw