Druck-Routine funktioniert nur einmal?

[Klemens Klarhoelter]

Hi Folks,

die folgende Druck-Routine funktioniert soweit korrekt aber leider nur einmal.
Beim zweiten Durchlauf erscheint das Printer Setup noch korrekt und nach dem 
Drücken
vom Buttom "drucken" bleibt g = nil und somit wird nicht gedruckt. Ich finde 
den Fehler
nicht? Habt ihr eine Idee?
 
  dim ds as new LBDataSetVerify
  dim ps as new PrinterSetup
  Dim g As Graphics
  CLIManager.rptVerify = new ReportVerify
  // set for printers max resolution
  ps.MaxHorizontalResolution = 300
  ps.MaxVerticalResolution = 300
  ps.Landscape=False
  
  if ps.PageSetupDialog then
    g = OpenPrinterDialog(ps,nil)
    if g <> nil then
      if CLIManager.rptVerify.run(ds,ps) then
        if CLIManager.rptVerify.document<>nil then
          CLIManager.rptVerify.Document.Print(g)
        end if
      end if
    end if
  end if
  
Gruß
Klemens