Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Berichte drucken
zurück: Suchformular in 10 Minuten erstellt Nachgefragt weiter: Windows Benutzer auslesen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
alex123987
Gast


Verfasst am:
30. Apr 2014, 16:47
Rufname:

Berichte drucken - Berichte drucken

Nach oben
       Version: Office 2007

hallo,

ich haben folgendes anliegen.

hier einmal der kolmplette code um den es sich dreht:

Form_frmNutzerinfo
Code:

   Option Compare Database
   Option Explicit

   Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
      Private Sub  Form_Load()

      If berichtsabfrage = True Then

         Me.ber_heute =True
         Me.ber_woche =True


         Sleep 50

         If Me.ber_dat_heute <=  Date Then
            DoCmd.OpenReport "Bericht Ablaufdatum Heute und Aelter ", acViewPreview
            Sleep 100
            DoCmd.Close acReport , "Bericht Ablaufdatum Heute und Aelter ", acSaveYes
         Else
            Me.ber_heute = False
         End If


         If Me.ber_dat_woche <=   Date Then
            DoCmd.OpenReport "Bericht Ablaufdatum Heute und in kommenden 7 Tagen ", acViewPreview
            Sleep 100
            DoCmd.Close acReport , "Bericht Ablaufdatum Heute und in kommenden 7 Tagen ", acSaveYes
            Sleep 100
         Else
            Me.ber_woche =False
         End If

         If Me.ber_heute Or Me.be_woche = True Then

            If Me.ber_druck_YN =  True Then
               Call Berichte_drucken_senden
               MsgBox "Die maximale Lagerzeit von bestimmten Produkten wurde erreicht !" & vbCrLf &
               "Es wurde ein Bericht gedruckt !", vbinformation
            Else
               MsgBox "Die maximale Lagerzeit von bestimmten Produkten wurde erreicht !" & vbCrLf & _
               "Es wird kein Bericht gedruckt, da dekativiert !", vb!nform ation
            End If

         End If

      End If

   DoCmd.OpenForm "frmStart"

   End Sub


   Sub Berichte_drucken_senden()
      Dim Mail_to As String

      Mail to = Me.ber_mail

      If Me.ber_heute =  True And Me.ber_dat_heute <Date>= Date Then
         Sleep 2000
         DoCmd.OpenReport "Bericht Ablaufdatum Heute und in Kommenden 7 Tagen", acView Normal
            If Me.ber_mail_YN=True Then
               Do.Cmd.SendObject acSendReport, "Bericht Ablaufdatum Heute und in kommenden 7 Tagen"; "PDF", mail_to;;;"Produkte laufen ab", "Siehe Anhang. Dies ist eine automatisch generierte Mail von Access"; False, False
            end if
         me.ber_woche=false
         me.ber_woche =DateAdd("d"),7,Date)
      end if

   end sub
   


Report_Bericht Ablaufdatum Heute und Aelter
Code:
   Option Compare Database
   Option Explicit

   Private Sub Report_NoData(Cancel as Integer)
      CurrentDb.Execute "UPDATE tblBericht_durcken SET ber_woche = FALSE" _
      , dbFailOnError
      
   End Sub



Report_Bericht Ablaufdatum Heute und in kommenden 7 Tagen
Code:
   Option Compare Database
   Option Explicit

   Private Sub Report_NoData(Cancel as Integer)
      CurrentDb.Execute "UPDATE tblBericht_durcken SET ber_heute = FALSE" _
      , dbFailOnError
      
   End Sub


folgendes Problem:

die Beiden Berichte werden trozdem gedruckt, obwohl die Berichte leer sind.

meine vermutung, der code läuft weiter und bis der code der Berichte die variable "ber_woche & ber_heute" zurücksetzt, werden die berichte schon gedruckt.

ein Sleep kann ich nicht verwenden, da dies das ganze Programm anhält.

gibt es eine andere lösung oder eine idee eurer seite?

ich habe es auch schon versucht, die berichte direkt zu durcken, wenn sie etwas enthalten.
Das Problem war, das Access es nicht vertragen hat das der Bericht praktisch offen ist und gleichzeitig noch gedruckt werden soll.
Somit hab ich den Weg eingeschlagen die Berichte zu öffen, wenn was drinn ist, schließen und drucken plus das Datum anpassen, wenn nichts drinne ist wenden die berichte geschlossen und nur das Datum angepasst. -> so die überlegung... durchführung -> die berichte werden trozdem gedruckt!

HILFE -.-


grüße alex
GastA
Gast


Verfasst am:
30. Apr 2014, 19:11
Rufname:

AW: Berichte drucken - AW: Berichte drucken

Nach oben
       Version: Office 2007

...ich erstelle es immer so...
Code:
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Für diesen Bericht gibt es keine Daten." & vbCrLf _
         & "Der Ausdruck wird abgebrochen."
    Cancel = -1
End Sub

Wobei die MsgBox keiner Notwendigkeit unterliegt.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellen (enthalten Dubletten) verknüpfen und Berichte (PDF) 1 OiledAmoeba 78 09. März 2014, 16:31
kyron9000 Tabellen (enthalten Dubletten) verknüpfen und Berichte (PDF)
Keine neuen Beiträge Access Tabellen & Abfragen: Summe in Berichte 0 Mariachi 89 09. Sep 2013, 17:40
Mariachi Summe in Berichte
Keine neuen Beiträge Access Tabellen & Abfragen: access abfragen und berichte erstellen 0 ballacchino 577 18. Nov 2008, 13:02
ballacchino access abfragen und berichte erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: prob beim drucken 6 jhaustein 294 04. Sep 2008, 20:41
jhaustein prob beim drucken
Keine neuen Beiträge Access Tabellen & Abfragen: Berichte A4 quer und A4 hoch 3 matbush 596 27. Jul 2007, 16:09
Gast Berichte A4 quer und A4 hoch
Keine neuen Beiträge Access Tabellen & Abfragen: Pivot Tabelle drucken 1 FlorianWein 4138 27. Jul 2007, 12:40
datroc Pivot Tabelle drucken
Keine neuen Beiträge Access Tabellen & Abfragen: Bericht nur 1x drucken! 6 c.h.r.i.s.s 678 19. Mai 2007, 21:33
c.h.r.i.s.s Bericht nur 1x drucken!
Keine neuen Beiträge Access Tabellen & Abfragen: Fehlermeldung beim Öffnen der Berichte 3 Freund 583 02. März 2006, 21:08
jens05 Fehlermeldung beim Öffnen der Berichte
Keine neuen Beiträge Access Tabellen & Abfragen: Verschiedene Fragen zum Drucken 0 F@ke 600 10. Apr 2005, 17:04
F@ke Verschiedene Fragen zum Drucken
Keine neuen Beiträge Access Formulare: 2 Formulare miteinander drucken 0 Phantomias 495 05. Apr 2005, 15:35
Phantomias 2 Formulare miteinander drucken
Keine neuen Beiträge Access Formulare: Daten eingeben, Bericht, drucken 17 Dennis41085 2212 03. März 2005, 18:30
Willi Wipp Daten eingeben, Bericht, drucken
Keine neuen Beiträge Access Formulare: Inhalt nach Drucken löschen! 1 David_Jentsch 398 31. Jan 2005, 16:44
jogi Inhalt nach Drucken löschen!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA