|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.11.2007 15:16:53 |
Hans Kurz |
|
|
|
23.11.2007 15:39:56 |
HansKurz |
|
|
|
28.11.2007 13:40:35 |
HansKurz |
|
|
 Aw:Aw:Aw:Druckereinstellungen nach Druckerauswahl |
10.12.2007 19:38:58 |
sigi |
|
|
Von:
sigi |
Datum:
10.12.2007 19:38:58 |
Views:
1264 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Druckereinstellungen nach Druckerauswahl |
Ich erstelle meine PDF mit FreePDF und der
Function Shell_andWait
'PDF drucker wird festgelegt
Dim PRTN_AppWindows As String
PRTN_AppWindows = "FP_MultiDoc"
Application.Printer = Application.Printers(PRTN_AppWindows)
beim drucken wird eine .PS datei erzeugt
diese werden mit der Function psToPDF angesprochen
dadurch ist es möglich auch ohne Access irgendeine Datei zu drucken
aber mit Access eine PDF datei zu erstellen
Der code für die Function psToPDF würde den Rahmen hier sprengen
kann ich aber zur verfügung stellen
'Api Function notwendig
Public Declare Sub CloseHandle Lib "kernel32" _
(ByVal hPass As Long)
'§ Anwendung Starten
'§ Aufruf durch psToPDF
Public Function Shell_andWait(Befehl As String, intFensterStil As Integer) As Integer
On Error GoTo Fehler_ERR
Dim hProcess As Long
Dim ProcessID As Long
Dim exitCode As Long
ProcessID = Shell(Befehl, intFensterStil)
hProcess = OpenProcess(&H400, False, ProcessID)
'§ 0,5 Sekunden Warten:
DoEvents
Sleep 500
Call CloseHandle(hProcess)
Shell_andWait = exitCode
Exit Function
Fehler_ERR:
End Function
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.11.2007 15:16:53 |
Hans Kurz |
|
|
|
23.11.2007 15:39:56 |
HansKurz |
|
|
|
28.11.2007 13:40:35 |
HansKurz |
|
|
Aw:Aw:Aw:Druckereinstellungen nach Druckerauswahl |
10.12.2007 19:38:58 |
sigi |
|
|