Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

PDF-Datei aus Verzeichnis über Button drucken

PDF-Datei aus Verzeichnis über Button drucken
19.04.2005 15:36:14
hegner
Hallo,
ich möchte über einen Button eine PDF Datei ausdrucken welche im folgende Verzeichnis liegt: c:\temp\Test.pdf
Das ActiveX Adobe Acrobat Steuerelement läßt sich nicht einfügen. Fehlermeldung:
Objekt kann nicht eingefügt werden. Welchen Weg könnte ich zum Ausdruck benutzen.
Beste Grüße
Markus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF-Datei aus Verzeichnis über Button drucken
19.04.2005 16:06:04
Nepumuk
Hallo Markus,
versuch's mal so:


Option Explicit
Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" ( _
     ByVal lpszLongPath As String, _
     ByVal lpszShortPath As String, _
     ByVal cchBuffer As LongAs Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
     ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As LongAs Long
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Const MAX_PATH = 260&
Private Const SW_HIDE = 0&
Private Sub prcPrint_PDF()
    Dim strPath As String, strShortPath As String, strFile As String
    strFile = "Test.pdf"
    strPath = "c:\temp\"
    strShortPath = Space(MAX_PATH)
    GetShortPathName strPath & "\" & strFile, strShortPath, MAX_PATH
    ShellExecute GetActiveWindow, "print", strShortPath, "", strPath, SW_HIDE
End Sub


Gruß
Nepumuk
Anzeige
AW: PDF-Datei aus Verzeichnis über Button drucken
19.04.2005 16:31:15
hegner
Hallo,
nach Eingabe des Codes und der Ausführung kommt folgende Fehlermeldung:
Fehler beim Kompilieren:
Nach End Sub, End Function oder End Property können nur Kommentare stehen
Gruß
Markus
AW: PDF-Datei aus Verzeichnis über Button drucken
19.04.2005 17:23:36
Nepumuk
Hallo Markus,
dann hast du den Code unter einen bestehenden kopiert. Lege ein neues Standardmodul (Im VBA - Editor - Menüleiste - Einfügen - Modul) an und kopiere den Code da rein. Die Funktionsaufrufe sind Deklarationen und die müssen am Anfang eines Moduls stehen.
Gruß
Nepumuk
AW: PDF-Datei aus Verzeichnis über Button drucken
19.04.2005 17:36:50
Hegner
Hallo Nepumuk,
ich habe ein neues Modul angelegt und den Code in das Modul kopiert. Der Ausdruck funktioniert eiwandfrei. Hierfür schon mal VIELEN DANK!
Mein Problem ist jetzt nur noch die Zuweisung zur Schaltfläche. Ich habe eine Schaltfläche aus der Formularleiste angelegt und wollte über die rechts Maustaste ein Makro zuweisen, es wird mir allerdings dieses Makro nicht angezeigt.
Beste Grüße
Markus
Anzeige
AW: PDF-Datei aus Verzeichnis über Button drucken
19.04.2005 17:42:20
Holger
statt Private Sub prcPrint_PDF()
nur
Sub prcPrint_PDF()
mfg Holger
AW: PDF-Datei aus Verzeichnis über Button drucken
19.04.2005 17:46:48
hegner
Hallo Holger,
hallo Nepumuk,
vielen Dank, es funktioniert einwandfrei. Einen schönen Abend noch.
Beste Grüße
Markus

275 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige