| |

ActiveX-ProgrammierungRe: Hilfe - PDF mit VB 6 erstellen | |  | Autor: Tobse | Datum: 06.05.04 07:32 |
| Ja, habs jetzt rausgefunden wie es geht.
Bin auf einer englischen Seite fündig geworden.
Mein Code sieht folgendetrmassen aus:
On Error GoTo PDF_error
Dim wrd As New Word.Application
Dim doc As Word.Document
wrd.Visible = False
wrd.ScreenUpdating = False
wrd.ActivePrinter = "Acrobat Distiller"
'Open the document
Set doc = wrd.Documents.Open("c:\pdftest\auftragsarten.doc")
'Print it to a PostScript file using Distiller
'doc.PrintOut False, False, , "c:\test.ps", , , , , , False
doc.PrintOut False, False, , "c:\pdftest\test.ps", , , , , , , True
doc.Close False
wrd.Quit False
Set doc = Nothing
Set wrd = Nothing
'Now call distiller to convert the postscript file to PDF
Dim acr As New ACRODISTXLib.PdfDistiller
acr.bShowWindow = True
acr.FileToPDF "c:\pdftest\test.ps", "c:\pdftest\Ergebnis.pdf", True
'acr.FileToPDF "d:\abc\test.ps", "d:\abc\test.pdf", 1
Set acr = Nothing
'Delete the old PS file
Kill "c:\pdftest\test.ps"
'Done
Exit Sub
PDF_error:
Debug.Print "Error: " & Time
doc.Close False
wrd.Quit False
Set doc = Nothing
Set wrd = Nothing
Set acr = Nothing |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|