Attribute VB_Name = "modDruckPruefgang"

Public Sub DruckPruefgang(PruefgangNr As Long)

PrinterMsg "Prüfprotokoll         PrüfgangNr: " & m_Pruefgang.PruefgangNr
PrinterMsg ""
PrinterMsg "Datum der Prüfung: " & Format(m_Pruefgang.Datum, "dd.mm.yyyy hh:mm")
PrinterMsg ""
PrinterMsg "Prüfstation " & Format(g_App.PruefstationNr, "@@@@") & "        Ort: " & g_App.Settings.PruefstationStandort
PrinterMsg ""
PrinterMsg "PrüferNr: " & g_App.Mitarbeiter.getNr & "    Name: " & g_App.Mitarbeiter.getName
PrinterMsg ""

PrinterMsg CStr(Einbauplatz.getNr) & ". Einbauplatz      Auftrag: " & CStr(Pruefzaehler.getAuftrag.getNr)
PrinterMsg ""
PrinterMsg "Seriennummer: " & CStr(Pruefzaehler.getSerienNr)
PrinterMsg ""
PrinterMsg "Prüfpunkte nach Klasse: " & Pruefzaehler.getPruefklasseKZ
PrinterMsg ""
PrinterMsg "Zählertyp: " & Pruefzaehler.getIdentNrObj.getTyp & " " & Pruefzaehler.getIdentNrObj.getTypzusatz & "," & Pruefzaehler.getIdentNrObj.getTemperatur & " Grad, Anzeige: " & Pruefzaehler.getAuftragPosition.getAnzeige

PrinterMsg "Prüfung durchgeführt mit " & PZCount & " Zählern"

PrinterMsg "Prüfungsart: Vergleichsprüfung gegen Referenzzähler"
PrinterMsg "Prüfungsart: Waage"
PrinterMsg ""
PrinterMsg "Grenzwert überschritten: " & m_Pruefpunkt.getFGu & " < " & Fehler & " < " & m_Pruefpunkt.getFGu

End Sub