PDF erstellen, PDF konvertieren, pdf-maker nutzt activePDF
Kontakt | Partner | Wir | Job |  Impressum | copyright by DataPerform |

PDF erstellen, PDF konvertieren, pdf-maker nutzt activePDF

 

Serverprodukte

› activePDF Server

› activePDF DocConverter

› activePDF Printer

› activePDF WebGrabber

› activePDF Toolkit V.4

› activePDF Portfolio


› DataPerform JustPDF


 

Entwickler Tools, API, COM

› activePDF Toolkit V.4

› activePDF WebGrabber



 

Weitere PDF-Lösungen

› im PDFStore

 

Bestell- und Info-Hotline:

 

+49 (0) 89 / 75 07 63 9 - 0

 

 

My Shop

  

 

 

Suchen

  

 


 

Support

› FAQ

 

› Kontakt / Rückruf

 

› Was ist ESD?

 

› Installationsanleitungen

 

› Beispiele / HowTo´s

 


Sonstiges

› PDF-Maker Partner werden

 

› Dokumentation

 

› News und Events

 

› Referenzen



Navigation

› Warenkorb

 

› Home

 

 

 

Wir akzeptieren:

 

 

 

powered by

powered by Google

 

 

activePDF Server - Beispiel-Code und HowTo's

Beispiel-Code:


HowTo`s:

 


Crystal Report nach PDF umwandeln

Klicken Sie hier, um den Quellcode für ASP oder VB herunterzuladen.

 

<%
Response.Buffer = True
' Create the APServer object
Set APServer = Server.CreateObject("APServer.Object")
' Change the output directory
' (note : you can also use the default from the editor)
APServer.OutputDirectory = Server.MapPath("results")
APServer.GeneralFlags = 16
APServer.Orientation = 2
y = APServer.StartPrinting()
' Now create the Crystal object
Set Crystal = Server.CreateObject("Crystal.CRPE.Application")

Set Report = Crystal.OpenReport(Server.MapPath("Invent.RPT"))
' OK...you have to know the name of the DLL for the printer
' you are creating...this will differ by printer models

Report.SelectPrinter "ADOBEPS5.DLL", APServer.NewPrinterName, _
            APServer.NewPortName
' This is a landscape report so let's flip it
Set PageOptions = Report.PageSetup
PageOptions.PaperOrientation = 2
' Don't want a progress dialog
Report.ProgressDialogEnabled = False
' This forces us to refresh the data
Report.DiscardSavedData
' Go print it out and suppress the prompt.
Report.PrintOut False
Set Report = Nothing
Set Crystal = Nothing
i = APServer.Wait(30)
APServer.StopPrinting
If i = 0 Then
XID = APServer.NewUniqueID
fileok = 1
Else
fileok = 0
End If
Set APServer = Nothing
%>
<html>
<body>
<center>
<% If fileok = 1 Then %>
<font face="Verdana" color="#008000"><strong><big>
<a href="<% response.write("results/" _
        & XID & ".PDF")%>" target="_blank">
<p>click here</a></big></strong></font>
<% Else %>
There was an Error distilling the document.
<% End If %>
<br>
<br>
</body>
</html>

 

 

 

nach oben

Excel Dokument nach PDF umwandeln

Klicken Sie hier, um den Quellcode für ASP herunterzuladen.



<%
Set APServer = Server.CreateObject("APServer.object")
APServer.OutputDirectory = Server.MapPath("results")
r = APServer.StartPrinting()

Set XLObject = Server.CreateObject("Excel.Application")
XLObject.DisplayAlerts = False
Set NewDoc = XLObject.Workbooks.Open( Server.MapPath("TestXL.xls"), _
             ,True,,,,True,,,False,False,,False)
' Due to an issue with excel you have to "activate it" to print it
NewDoc.Activate
NewDoc.PrintOut 1,999,1,False,APServer.NewPrinterName,False,False
NewDoc.Close 0
XLObject.Quit
Set XLObject = Nothing
APServer.StopPrinting
r = APServer.Wait(30)
uniqueID = APServer.NewUniqueID
Set APServer = Nothing
%>
HTML>
<BODY TOPMARGIN=0 LEFTMARGIN=0 SCROLL=no>
<embed fullscreen=yes src="results/<%=uniqueID & ".pdf"%>">
</BODY>
</HTML>

 

 

nach oben

Word Dokument nach PDF umwandeln

Klicken Sie hier, um den Quellcode für ASP oder CF herunterzuladen.


 

<%
Set APServer = Server.CreateObject("APServer.object")
APServer.OutputDirectory = Server.MapPath("results")
r = APServer.StartPrinting()

Set WordObject = Server.CreateObject("Word.Application")

WordObject.DisplayAlerts = False
Set NewDoc = WordObject.Documents.Open _
(Server.MapPath("TestDoc.Doc"), False, True)
' Since Word2K has a problem setting ActivePrinter,
' we use this method instead..works for Word97 too
Set WordDialog = WordObject.Dialogs(97)
WordDialog.Printer = APServer.NewPrinterName
WordDialog.DoNotSetAsSysDefault = 1
WordDialog.Execute

NewDoc.PrintOut False
NewDoc.Close False
WordObject.Quit False
Set WordObject = Nothing
APServer.StopPrinting
r = APServer.Wait(30)
uniqueID = APServer.NewUniqueID
Set APServer = Nothing
%>
<HTML>
<BODY TOPMARGIN=0 LEFTMARGIN=0 SCROLL=no>
<embed fullscreen=yes src="results/<%=uniqueID & ".pdf"%>">
</BODY>
</HTML>

 

 

nach oben

PowerPoint Dokument nach PDF umwandeln

Klicken Sie hier, um den Quellcode für  ASP oder CF herunterzuladen.

 

<%
Set APServer = Server.CreateObject("APServer.object")
APServer.OutputDirectory = Server.MapPath("results")
r = APServer.StartPrinting()

Set PPObject = Server.CreateObject("PowerPoint.Application")

Set NewDoc = PPObject.Presentations.Open _
    ( Server.MapPath("TestPP.PPT"), -1, 0,0)
Set myOptions = NewDoc.PrintOptions
myOptions.ActivePrinter = APServer.NewPrinterName
myOptions.PrintInBackground = 0

NewDoc.PrintOut 1,9999,"",1,0
NewDoc.Saved = 1
NewDoc.Close
PPObject.Quit
Set PPObject = Nothing
APServer.StopPrinting
r = APServer.Wait(30)
uniqueID = APServer.NewUniqueID
Set APServer = Nothing
%>
<HTML>
<BODY TOPMARGIN=0 LEFTMARGIN=0 SCROLL=no>
<embed fullscreen=yes src="results/<%=uniqueID & ".pdf"%>">
</BODY>
</HTML> 
 
 

nach oben

 

PDF-Seiten an ein vorhandenes PDF-Dokument anhängen

<%
Set objSVR = Server.CreateObject("APServer.Object")

' Final PDF filename
finalPDF = Server.MapPath("Document.pdf")
titlePage = Server.MapPath("title.ps")
bodyPage = Server.MapPath("body.ps")

' This property checks if the PDF file exists
' If it does then the new converted PDF will be
' appended to the existing one
objSVR.ConcatenateToExisting = True

' First convert the title page giving it the
' final document name
r = objSVR.PSToPDF(titlePage, finalPDF)

' Next convert the body page giving it the same
' final document name
r = objSVR.PSToPDF(bodyPage, finalPDF)

Set objSVR = Nothing
%>

 

nach oben

 

 





 


powered by activePDF:

activePDF

 

Wer nutzt activePDF?

PDF bearbeiten PDF erstellen PDF konvertieren

Die Besten der Welt nutzen activePDF! Profitieren auch Sie davon. Das iPaper spart Ihnen in der täglichen Arbeit viel Zeit und macht Ihre Prozesse effizienter.

Individuelle PDF Lösungen 

powered by ASP.NET

Sie suchen nach speziellen Lösungen?  Wir entwickeln Software nach Ihren Anforderungen! PDF-Formulare, Plug-Ins, Datenbankgestützte Intra- und Internet Anwendungen, C/S Lösungen,...

Profitieren auch Sie von unserer Kompetenz und Erfahrung - nehmen Sie einfach unverbindlich Kontakt auf!

 

 

 

 Seitenanfang pdf-maker ist ein Service der DataPerform GmbH  · Webdesign: INCREON · Update: 7.9.2010
"It's everybody's PDF" sowie Namen der activePDF-Produkte sind Marken von activePDF, alle anderen Marken sind Eigentum Ihrer jeweiligen Inhaber.