PDF in neuem Fenster erzeugen

29/01/2008 - 08:19 von Andreas Vogt | Report spam
Hallo,
habe das DB-Fenster per API ausgeblendet.
Nun rufe ich ConvertReportToPDF() von Stephen Lebans auf. (http://
www.lebans.com/reporttopdf.htm)
Leider wird das PDF im gleichen Fenster wie die Access-Anwendung
erstellt, schließ ich das PDF ist die Anwendung weg und das
Datenbankfenster kommt wieder zum Vorschein.

Wie kann ich das PDF in einem neuen Fenster erzeugen lassen?
Andreas
 

Lesen sie die antworten

#1 Andreas Vogt
29/01/2008 - 09:22 | Warnen spam
Hallo NG
Habe die Lösung selbst gefunden.

Man erstelle ein winzig kleines Popup-Formular mit einem Leerzeichen
als Caption, ohne Rahmen und ohne Systemmenü/Schaltflàchen, und nenne
es z.B. frmDummy.
Bevor man das PDF erstellen làsst, öffnet man das frmDummy und holt
sich dessen Fensterhandle. Das PDF wird dann im neuen Fenster mit dem
neuen Handle erzeugt:

Const SW_HIDE = 0
Private Declare Function ShowWindow Lib "USER32" _
(ByVal hWnd As Long, ByVal
nCmdShow As Long) As Long

Private Sub createPDF_Click()
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long

DoCmd.OpenForm "frmDummy"
hWindow = Forms!frmDummy.hWnd
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Dim blRet As Boolean
blRet = ConvertReportToPDF("rptToleranzDaten", vbNullString, _
"rptToleranzDaten.pdf", False, True, 0,
"", "", 0, 0)
End Sub

Gruß Andreas

Ähnliche fragen