Supportnet / Forum / Datenbanken
Erstellung von PDF -Dokumenten unter Access 97
Frage
Wer kann mir sagen, wie aus Access 97 heraus ein
PDF-Dokumente erzeuge?
Antwort 1 von piano
Hallo!
Wenn Du den PDF-Writer installiert hast, wählst Du den Bericht aus und über Datei - Drucken den Drucker "Akrobat Distiller" wählen.
Gruß piano
würde mich über Feedback freuen!
Wenn Du den PDF-Writer installiert hast, wählst Du den Bericht aus und über Datei - Drucken den Drucker "Akrobat Distiller" wählen.
Gruß piano
würde mich über Feedback freuen!
Antwort 2 von Oliver Klein
Hallo Piano,
danke für Deinen Tip, das funktioniert schon mal.
Wenn ich allerdings den Bericht über einen Druckbutton ansteuere, dann nimmt Access ja automatisch den Standarddrucker. Und normalerweise ist das bei mir ein lokaler Drucker. Wäre also etwas umständlich erst immer den Standarddrucker zu wechseln! Gibt es hier denn noch eine andere Möglichkeit??
danke für Deinen Tip, das funktioniert schon mal.
Wenn ich allerdings den Bericht über einen Druckbutton ansteuere, dann nimmt Access ja automatisch den Standarddrucker. Und normalerweise ist das bei mir ein lokaler Drucker. Wäre also etwas umständlich erst immer den Standarddrucker zu wechseln! Gibt es hier denn noch eine andere Möglichkeit??
Antwort 3 von piano
Hallo
Folgender Vorschlag:
Funktion in beliebiges Modul stellen:
Aufruf-Parameter:
pnr= Nr. des PDF-Writers
sefPr= Nr. des Standard-Druckers
Die Statements "Debug.Print" dienen nur zum ermitteln der richtigen Drucker und können nach Test entfernt werden. Du mußt ev. testen, welche Druckernummern den gewünschten Druckern Deiner Druckerliste entsprechen.
Wenn Du variable Zuordnung benötigst, mußt Du zusätzlich in einer Schleife die Drucker durchsuchen, bis der richtige Drucker gefunden wurde:
Für "Druckername" den gesuchten Drucker einsetzen. Nicht gefunden führt zu Fehler!
Diese Funktion einem Makro zuweisen {"AusführenCode" mit z.B. druckPDF(2,4) }
und diesen Makro einem benutzerdefinieren Symbol (mit Anpassen Sybolleisten) zuweisen. Dann genügt Klick zum Erstellen des PDF.
Viel Glück und bitte um Info!
Gruß piano
Folgender Vorschlag:
Funktion in beliebiges Modul stellen:
Public Function druckPDF(pnr, defPr)
Dim dru As Printer
Set Application.Printer = Application.Printers(pnr)
Set dru = Application.Printer
Debug.Print dru.DeviceName
DoCmd.PrintOut (acPrintAll)
Set Application.Printer = Application.Printers(defPr)
Set dru = Application.Printer
Debug.Print dru.DeviceName
End Function
Aufruf-Parameter:
Die Statements "Debug.Print" dienen nur zum ermitteln der richtigen Drucker und können nach Test entfernt werden. Du mußt ev. testen, welche Druckernummern den gewünschten Druckern Deiner Druckerliste entsprechen.
Wenn Du variable Zuordnung benötigst, mußt Du zusätzlich in einer Schleife die Drucker durchsuchen, bis der richtige Drucker gefunden wurde:
Dim i
i = 0
Do While True
Set dru = Application.Printers(i)
If dru.DeviceName = "Druckername" Then Exit Do
i = i + 1
Loop
'i enthält nun die Druckernummer
Für "Druckername" den gesuchten Drucker einsetzen. Nicht gefunden führt zu Fehler!
Diese Funktion einem Makro zuweisen {"AusführenCode" mit z.B. druckPDF(2,4) }
und diesen Makro einem benutzerdefinieren Symbol (mit Anpassen Sybolleisten) zuweisen. Dann genügt Klick zum Erstellen des PDF.
Viel Glück und bitte um Info!
Gruß piano