Hallo Leute,
ich hab ein Formular mit dem Button "Datensatz Drucken" (Access Runtime Version 10).
Dann wird ein Bericht vom aktuellen Datensatz erstellt und angezeigt. Dort gibt es normale Standardfunktion "Drucken".
Nun passiert das etwas seltsame Phänomen...dass ab und an (sagen wir mal 2/10 Versuchen), dass er nicht den Bericht druckt, sondern das Formular mit allen Datensätzen.
Für mich ist es ein Rätsel wie das zu Stande kommt...sogar wenn ich auf dem BEricht in irgendeinerweise das Layout verändere oder die Druckeigenschaften, druckt er immer noch das Formular.
Irgendeine Lösung? Ist es ein Fehler?
Viele Grüße
Hallo,
Wenn du "Drucken" im Kontextmenü meinst, so ist das auf das aktuell markiere Objekt bezogen. Vermutlich ist eben in diesen Fällen das Formular markiert (hält den Fokus) und nicht der Bericht.
Das ergibt einen Sinn... Versteh trotzdem nicht, warum er es nur manchmal macht ???
Kann man dann Fokus auf den BEricht legen oder sollte man einfach Fokus auf irgendein Feld in Bericht legen? Was wäre die "weniger" belastende Funktion beim Laden?
Danke!
Hallo,
es kommt darauf an, was angeklickt wird... Du kannst versuchen, den Bericht als "gebunden" zu definieren. Dann ist nur der Bericht aktiv, solange er angezeigt wird.
Hallo,
danke nochmals. Meinst du damit, dass der Bericht zu einem bestimmten Datensatz beim Öffnen gebunden werden soll? Ich hab es das Kriterium über das Öffnen von Button übergeben. Soll ich es "Beim Öffnen" auslesen?
Da es nur selten passiert ist, kann ich es nicht irgendwie testen...
Wäre z.B. eine Lösung beim Laden wie folgt aufzurufen?
Fokus auf BEricht "Beim Öffnen"?
Private Sub Report_Load()
'Fokus auf den Bericht?
DoCmd.SelectObject acReport, "reMesseDeckblatt", True
End Sub
Grüße!
Hallo,
stelle im Berichtsentwurf die Eigenschaft "Gebunden" unter "Eigenschaftenblatt/Andere" auf "ja"..
;D Warum so einfach, wenn es kompliziert geht...
Sorry, von "Gebunden"-Option hab ich noch nie gebrauch gemacht.
Vielen lieben Dank! Hoffe, dass das Problem damit behoben sein wird.
Danke!!
Hallo,
leider geht's immer noch nicht :-X
Grüße
Hallo,
du hast noch gar nicht beschrieben, wie das Drucken denn überhaupt angestoßen wird.
Das Formular, aus dem der Bericht geöffnet wird, ist das evtl. ein PopUp-Formular?
Hallo Maggie,
wie DF6GL schon geraten hat über das Kontextmenü des Berichtes. Also nicht von mir vorgelegt, sondern Standard Menü von Access.
Also das Formular, was gedruckt wird, ist tatsächlich kein Popup. Aber das Formular welches den Bericht ausspuckt, ist ein Popup.
Das passiert tatsächlich bei 2 von 10 Computern (bisher bei gleichen Benutzern, kann aber nicht davon ausgehen, dass es nur an deren Computern liegt, weil es nicht so oft passiert)
(PS: hab den anderen Beitrag nicht ignoriert, ich will heute noch Access updates reinspielen und dann morgen alles durchtesten :) )
Danke + Grüße
Hallo,
irgendwie bin ich verwirrt....
Zitatich hab ein Formular mit dem Button "Datensatz Drucken" (Access Runtime Version 10).
Dann wird ein Bericht vom aktuellen Datensatz erstellt und angezeigt. Dort gibt es normale Standardfunktion "Drucken".
.
.
Also das Formular, was gedruckt wird, ist tatsächlich kein Popup. Aber das Formular welches den Bericht ausspuckt, ist ein Popup.
Wie hängt denn das nun zusammen?
Wird das Formular, das den Druckbutton enthält, damit auch selber gedruckt oder ruft dieser Button den Bericht auf?
Hallo,
das ganze läuft so ab.
Schritt 1: Formular für Verwaltung von Messen wird aufgemacht
Schritt 2: Benutzer möchte zu der Messe ein Deckblatt erstellen --> drückt Button
Schritt 3: PopUp erscheint mit Textfeld. Eingabe des Namens für die Messe oder Abkürzung (dies habe ich den Benutzer indv. überlassen, da manche Messenahmen sehr sehr lang sind und er nur 3 Buchstaben für das Deckblatt zur Abkürzung benutzt
Schritt 4: Benutzer druckt Button für Bericht erstellen
Schritt 5: Bericht wird als Seitenansicht angezeigt --PopUp Formular schließt
Schritt 6: Benutzer geht über das Menü auf drucken, wählt Drucker aus
Schritt 7: der druckt 150 Seiten vom Formular mit allen Datensätzen von allen Messen aus (aus Schritt 1) ???
Falls es noch interessant ist...hier der Code vom PopUp
Private Sub btnMesseDeckblatt_Click()
'GEPRÜFT
'On Error GoTo ErrHandler
'**Generierung des Deckblattes und Speicherung der Datei im Ordner**
'--------------------------------------------------------------------
Dim strMessePfad As String
Dim strMesseName As String
strMesseName = CheckSpelling(Forms!frmMessenVerwaltung!txtMesseName)
strMessePfad = "R:\ALL\#Messen\" & Forms!frmMessenVerwaltung!cboMesseJahr & "\" & strMesseName
'Specherung des Daten
DoCmd.RunCommand acCmdSaveRecord
'Öffnen des Berichtes
DoCmd.OpenReport "reMesseDeckblatt", acViewPreview, , "[MesseNr] = '" & Me!txtMesseNr & "'"
'Speicherung des Berichtes im Pfad
Call MakeDir(strMessePfad)
'MsgBox strMessePfad & "\" & "Deckblatt_" & Forms!frmMessenVerwaltung!txtMesseNr2 & ".pdf"
DoCmd.OutputTo acOutputReport, "reMesseDeckblatt", acFormatPDF, strMessePfad & "\" & "Deckblatt_" & Forms!frmMessenVerwaltung!txtMesseNr2 & ".pdf", False
'Schließung des Formulars
DoCmd.Close acForm, "frmMessenDeckblatt"
ExitHere:
Exit Sub
ErrHandler:
Dim strErrString As String
strErrString = "Error Information..." & vbCrLf
strErrString = strErrString & "Error#: " & Err.Number & vbCrLf
strErrString = strErrString & "Description: " & Err.Description
MsgBox strErrString, vbCritical + vbOKOnly, "Sub: btnMesseDeckblatt_Click"
Resume ExitHere
End Sub
Könnte natürlich das ganze Umgehen, indem ich so oder so den Bericht ausdrucke... aber irgendwie ist es nur "ignorieren"
Hallo,
stell mal das so um:
Dim strMesseNr as String
.
.
.
strMesseNr=Me!txtMesseNr
'Schließung des Formulars
DoCmd.Close acForm, "frmMessenDeckblatt"
'Öffnen des Berichtes
DoCmd.OpenReport "reMesseDeckblatt", acViewPreview, , "[MesseNr] = '" & strMesseNr & "'"
'Speicherung des Berichtes im Pfad
Call MakeDir(strMessePfad)
'MsgBox strMessePfad & "\" & "Deckblatt_" & Forms!frmMessenVerwaltung!txtMesseNr2 & ".pdf"
DoCmd.OutputTo acOutputReport, "reMesseDeckblatt", acFormatPDF, strMessePfad & "\" & "Deckblatt_" & Forms!frmMessenVerwaltung!txtMesseNr2 & ".pdf", False
.
.