von Frewer » Sa, 21.03.2020 15:37
Halle,
habe erneut Probleme mit der Weiterführung meiner Datenbank. Habe einen Bericht, der funktioniert, den ich aus einem Formular aufrufen und auch mit der Druckfunktion des Hauptmenüs ausdrucken kann. Den Aufruf des Berichtes steuere ich über einen Button im Formblatt.
Das 1te Problem ist, dass der Macro nach dem Aufruf des Berichtes nicht wartet bis der Bericht ausgegeben ist sondern sofort den Rest des Macros abarbeitet.
Das 2te ist, dass ich gerne den Bericht per Macro ausdrucken möchte, was mir trotz Studium im Internet nicht gelingt. Ich finde auch keinerlei Erklärungen in Bezug auf meine Macrofolge, die ich gefunden habe:
SUB Ausdruck
DIM oRep AS OBJECT, oDoc AS OBJECT, oDrawpage AS OBJECT
DIM .....
.........
ThisDatabaseDocument.ReportDocuments.getByName("Bericht_BH").open 'die Zeile funktioniert ohne den Rest
REm ab hier ist das Ganze unklar und bringt OO zum Absturz
WAIT2000
oPrinter = oRep.printer
aName = oPrinter(0)
aName.name = "Name"
aName.Value = "HP Laserjet 1010"
oPrinter(0) = aName
oRep.printer = oPrinter
oDruckOpt(0).Name = "CopyCount"
oDruckOpt(0).Value = 1
oRep.print(oDruckOpt())
oRep.close(true)
.........
END SUB
Der LaserJet von HP ist mein Standard-Drucker. Ob der hier erneut zu benennen ist und wie ist unklar. Im Beispiel hat man wohl einen anderen Drucker ausgewählt.
Auch wundert mich, dass oPrinter(0), oDruckOpt() - nehme an, dass dies ARRAYs sind - nicht deklariert werden müssen (Option explicit ist gewählt). Auch aName wird nicht angemekkert, obwohl es nicht deklariert ist. Vermute, dass ooBase bereits beim WAIT sich "aufhängt", warum unklar.
Gibt es Hilfe?
Gruß Frewer
Halle,
habe erneut Probleme mit der Weiterführung meiner Datenbank. Habe einen Bericht, der funktioniert, den ich aus einem Formular aufrufen und auch mit der Druckfunktion des Hauptmenüs ausdrucken kann. Den Aufruf des Berichtes steuere ich über einen Button im Formblatt.
Das 1te Problem ist, dass der Macro nach dem Aufruf des Berichtes nicht wartet bis der Bericht ausgegeben ist sondern sofort den Rest des Macros abarbeitet.
Das 2te ist, dass ich gerne den Bericht per Macro ausdrucken möchte, was mir trotz Studium im Internet nicht gelingt. Ich finde auch keinerlei Erklärungen in Bezug auf meine Macrofolge, die ich gefunden habe:
SUB Ausdruck
DIM oRep AS OBJECT, oDoc AS OBJECT, oDrawpage AS OBJECT
DIM .....
.........
ThisDatabaseDocument.ReportDocuments.getByName("Bericht_BH").open 'die Zeile funktioniert ohne den Rest
REm ab hier ist das Ganze unklar und bringt OO zum Absturz
WAIT2000
oPrinter = oRep.printer
aName = oPrinter(0)
aName.name = "Name"
aName.Value = "HP Laserjet 1010"
oPrinter(0) = aName
oRep.printer = oPrinter
oDruckOpt(0).Name = "CopyCount"
oDruckOpt(0).Value = 1
oRep.print(oDruckOpt())
oRep.close(true)
.........
END SUB
Der LaserJet von HP ist mein Standard-Drucker. Ob der hier erneut zu benennen ist und wie ist unklar. Im Beispiel hat man wohl einen anderen Drucker ausgewählt.
Auch wundert mich, dass oPrinter(0), oDruckOpt() - nehme an, dass dies ARRAYs sind - nicht deklariert werden müssen (Option explicit ist gewählt). Auch aName wird nicht angemekkert, obwohl es nicht deklariert ist. Vermute, dass ooBase bereits beim WAIT sich "aufhängt", warum unklar.
Gibt es Hilfe?
Gruß Frewer