PDf-Dateien per Makro ausdrucken
Verfasst: Mi, 19.05.2010 14:59
Hallo,
ich möchte PDF-Dateien über ein Makro ausdrucken. Im Internet habe ich folgendes Beispiel gefunden,
das bei mir allerdings nicht funktioniert. Sobald ich die Scalc-Datei öffne und die Makros darin aktiviere,
erscheint die OO-Meldung "BASIC-Syntaxfehler" an der Codestelle "Public Declare Function ShellExecute..."
Hier der zugehörige Code-Ausschnitt:
Option Explicit
Dim sPDF_Datei as String
Public 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 Long) As Long
Sub Start
..
..
sPDF_Datei = "C:\Test.pdf"
Call Datei_drucken
..
End Sub
Sub Datei_drucken
Call ShellExecute(0, "Print", sPDF_Datei, "", "", 2)
End Sub
Vorab vielen Dank für Eure Unterstützung.
ich möchte PDF-Dateien über ein Makro ausdrucken. Im Internet habe ich folgendes Beispiel gefunden,
das bei mir allerdings nicht funktioniert. Sobald ich die Scalc-Datei öffne und die Makros darin aktiviere,
erscheint die OO-Meldung "BASIC-Syntaxfehler" an der Codestelle "Public Declare Function ShellExecute..."
Hier der zugehörige Code-Ausschnitt:
Option Explicit
Dim sPDF_Datei as String
Public 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 Long) As Long
Sub Start
..
..
sPDF_Datei = "C:\Test.pdf"
Call Datei_drucken
..
End Sub
Sub Datei_drucken
Call ShellExecute(0, "Print", sPDF_Datei, "", "", 2)
End Sub
Vorab vielen Dank für Eure Unterstützung.