vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: passwort 
Autor: LF forever
Datum: 19.05.04 15:18

so wird ppt in pdf konvertiert
Hoffe du kannst was damit anfangen.
Mir fehlt die Zeit um zu kommentieren.
Hoffe du kannst mir auch helfen

etc...................etc
PowerpointDateiUndName = "C:\Dokumente und Einstellungen\version1\TOI_Org_M_AUF_M_NAMEN.ppt"
PDF_PFAD = "D:\"
PDF_Datname = "TOI_Org_M_AUF_M_NAMEN.pdf"
AktivePrinterPDFWRITER = "Acrobat PDFWriter"

etc.................etc
End Function


etc.................etc


End Function

Public Function test_V6_PDFDatei_Erstellen_OO()


etc.................etc

End Function

etc.................etc

Dim dbs As Database, PDF_PFAD_UND_DATNAME, start
PDF_PFAD_UND_DATNAME = PDF_PFAD & PDF_Datname
etc.....................etc


Set PowerpointDatei = CreateObject("Powerpoint.Application")
PowerpointDatei.Visible = True
'ppt.Presentations.Open
PowerpointDatei.Presentations.Open PowerpointDateiUndName

etc.................etc


Dim OutputFileName, PrinttoFile

AktivPrinterMerk = PowerpointDatei.ActivePrinter
PowerpointDatei.ActivePresentation.PrintOptions.ActivePrinter = AktivePrinterPDFWRITER
Ret = PdfDateiSetzen(Dateiname:="" & PDF_PFAD_UND_DATNAME) 'neu dazu

OutputFileName = PDF_PFAD_UND_DATNAME

If AktivePrinterPDFWRITER = "Acrobat PDFWriter" Then 'Falls PDFWriter standart dann tue folgendes
PowerpointDatei.ActivePresentation.PrintOut(PrinttoFile = True) = PDF_PFAD_UND_DATNAME
End If 'PDF Datei ist produziert und abgelegt in C:\...-->anscheinend dochnicht


PowerpointDatei.ActivePresentation.PrintOptions.ActivePrinter = AktivPrinterMerk

etc .........................................etc

Exit Function

gruss

LF forever

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
passwort826LF forever19.05.04 12:56
Re: passwort483ModeratorDieter19.05.04 15:06
Re: passwort483LF forever19.05.04 15:18
Re: passwort492ModeratorDieter19.05.04 15:22
Re: passwort396Stuhlbein22.05.04 10:59
Re: passwort443LF forever24.05.04 09:13

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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