PDF erstellen, PDF konvertieren, pdf-maker nutzt activePDF
KontaktPartner | WirJob |  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

 



  

Suchen


  

 


 

Support


FAQ

 

Kontakt / Rückruf

 

Was ist ESD?

 

Installationsanleitungen

 

Beispiele / HowTo´s

 


Sonstiges


PDF-Maker Partner werden

 

Dokumentation

 

News und Events

 

Referenzen

 

Datenschutz



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: 29.5.2020
"It's everybody's PDF" sowie Namen der activePDF-Produkte sind Marken von activePDF, alle anderen Marken sind Eigentum Ihrer jeweiligen Inhaber.