| |

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 |
  |
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevOutBar 4.0 
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere 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
|
|