vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2020
 
zurück

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

Fortgeschrittene Programmierung
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr 
Autor: Heinz_
Datum: 07.07.20 15:51

Hier mal ein Code-Auszug aus Excel VBA.
Getestet unter Office 2000, 2003, 2012, 2016.

'----------------------------------------------------------------------
Sub PdfWithPDFCreator4()
 
''' aktuelles Tabellenblatt als pdf-Datei ausgeben
'''http://www.clever-excel-forum.de/Thread-VBA-VBA-und-PDF-Creator-2
 
'Objekte zum Drucken als pdf-Datei
    Dim pdfJob              As Object   'Objekt für PDFCreator
    Dim printJob            As Object   'Objekt für PDFCreator
 
'Variablen zum Drucken als pdf-Datei
    Dim m_path_pdf          As String   'Laufwerk
    Dim m_datei_Job         As String   'Variable für 'Set printJob ...'
    Dim m_datei_pdf         As String   'Datei-Name für .pdf-File
    Dim m_pdf_AltDrucker    As String       'DurckerName vor dem Prg.-Aufruf
 
'PDFCreator: Instanz beenden, falls diese durch vorherigen Fehler noch an ist!
    On Error Resume Next
        pdfJob.ReleaseCom
    On Error GoTo 0
 
''''''''''''''''''''''''''
'Pfad & Dateiname für PDFCreator festlegen
m_path_pdf = "H:"
    m_datei_Job = ActiveWorkbook.Name
    m_datei_Job = m_path_pdf & "\" & m_datei_Job
    m_datei_pdf = Replace(m_datei_Job, ".xls", ".pdf", Compare:=vbTextCompare)
 
'Bestehende .pdf-Datei suchen und wenn gefunden umbenennen
    If Dir(m_datei_pdf) <> "" Then
        On Error Resume Next
            Kill m_datei_pdf
        On Error GoTo 0
    End If
 
''''''''''''''''''''''''''
'Durcker-Name merken, um diesen später wieder einzustellen
    m_pdf_AltDrucker = Application.ActivePrinter
 
'Standarddrucker auf PDFCreator setzen
    Application.ActivePrinter = "PDFCreator auf Ne00:"
 
'Referenz auf PDFCreator      'COM-Objekt (Auftragswarteschlange) initialisieren
    On Error Resume Next    ''''''''''''''''
    Set pdfJob = CreateObject("PDFCreator.JobQueue")
    ''MsgBox Err.Description
    pdfJob.Initialize
    ''MsgBox Err.Description
    On Error GoTo 0         ''''''''''''''
 
'Drucken über den pdf-Drucker
    ActiveSheet.PrintOut
 
'PDFCreator: auf die Ankunft eines Druckauftrages warten
    pdfJob.WaitForJob (10)
 
'PDFCreator: nächsten Druckauftrag aus der Warteschlange herauszunehmen
    Set printJob = pdfJob.NextJob
 
'PDFCreator: Konvertierungsprofil des Druckauftrages festlegen
    printJob.SetProfileByGuid ("DefaultGuid")
 
'PDFCreator: Pfad & Dateiname und konvertieren
    printJob.ConvertTo (m_datei_pdf)
 
'Konvertierungsstatus abfragen  /  'PDFCreator: Instanz beenden
    'MsgBox (printJob.IsSuccessful)
    If printJob.IsFinished = True Then
        pdfJob.ReleaseCom
    End If
 
'Fehelhandling ausschalten
    On Error GoTo 0
    Application.Wait (Now + TimeValue("00:00:02"))   '''2 Sek. warten
 
'Drucker zurückstellen auf den vorher gemerkten Durcker-Namen
    If Len(m_pdf_AltDrucker) > 0 Then
        Application.ActivePrinter = m_pdf_AltDrucker
    End If
 
Set pdfJob = Nothing
Set printJob = Nothing
 
End Sub

Gruß aus Mittelfranken
Heinz

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr281Heinz_28.06.20 09:38
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr158Heinz_28.06.20 09:39
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr197Souffleurlos28.06.20 11:20
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr154Heinz_28.06.20 14:20
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr191ModeratorDieter29.06.20 08:28
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr147Heinz_29.06.20 12:11
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr186ModeratorDieter29.06.20 12:55
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr140Heinz_02.07.20 09:25
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr172effeff03.07.20 10:16
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr137Heinz_04.07.20 19:52
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr165effeff04.07.20 21:41
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr140Heinz_04.07.20 21:58
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr125emaNoN07.07.20 15:10
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr122Heinz_07.07.20 15:46
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr134Heinz_07.07.20 15:51
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr118emaNoN08.07.20 08:38
PDF druckt man ganz einfach über den InternetExplorer aus.67Souffleurlos17.07.20 18:33
Neue Version – gleiches Problem!49Heinz_29.07.20 15:45
Re: Neue Version – gleiches Problem!47Souffleurlos30.07.20 15:56
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr46emaNoN30.07.20 10:45
Re: VBA-Makros funktionieren mit PDFCreator 4.0 nicht mehr41Heinz_31.07.20 13:35

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-2020 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