Regular
Beiträge: 50
Ort: Mauerbach bei Wien | Hallo und guten Tag!
Ich mühe mich schon eine Weile mit dem Export eines Berichts in pdf Format der dann als Email versendet wird.
Der Export selbst ist ja nicht das Problem. Was nicht funktioniert ist die Summe.
Es werden im Bericht die verschiedenen Mwst Beträge angegeben. Zb.: Beträge 10% € 10.00 Beträge 20% € 20,00
Die Summe wird wie folgt erstellt:
Option Compare Database
Option Explicit
Dim curMwSt10 As Currency
Dim curMwSt20 As Currency
Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
If txtMwSt.Value = 10 Then _
curMwSt10 = curMwSt10 + CCur(txtBetragMwst.Value)
If txtMwSt.Value = 20 Then _
curMwSt20 = curMwSt20 + CCur(txtBetragMwst.Value)
Private Sub Berichtsfuß_Print(Cancel As Integer, PrintCount As Integer)
Dim strSteuer10 As String
Dim strSteuer20 As String
If curMwSt10 <> 0 Then _
strSteuer10 = "Steuer 10.00% " & Format(curMwSt10, "Currency")
If curMwSt20 <> 0 Then _
strSteuer20 = "Steuer 20.00% " & Format(curMwSt20, "Currency")
txtSteuer: strsteuer20 &" "& strsteuer10
Wenn der Bericht normal zum Drucker gesendet wird ist alles OK. Die Beträge werden richtig angezeigt. Beim Export in pdf werden die Beträge verdoppelt. Der Grund dürfte der umstand sein das der Bericht 2x geöffnet wird. Das 1. mal bei OpenReport und das 2. mal bei outpotto.
DoCmd.OpenReport "rptAngebot", acViewPreview, , "[Angebotsnummer]= " & txtAngebotsnummer & "", acHidden
DoCmd.OutputTo acOutputReport, "rptAngebot", acFormatPDF, strPfad & strDateiName
Gibt es eine Möglichkeit den Bericht in der Anweisung "DoCmd.OutputTo acOutputReport" zu filtern?
Besten Dank im Voraus für einen Tipp!
|
