PrinterSetup Probelme

[Stefan Sicurella]

Hi,

ich versuche gerade verschiedene Dinge mit dem PrinterSetup auf die Reihe zu 
bekommen.

Erster Start der App, es ist noch kein PrinterSetup vorhanden, der Benutzer 
druckt das erste mal …

Folgender Code crashed sofort die Debug-App
global: ps=new printer setup

      if len(ps.SetupString)=0 then 
        if ps.pagesetupDialog then
          gesamtbreite=ps.Width
          gesamthoch=ps.Height
        else
          //User hat abgebrochen
        end if
      end if

ok, anderer versuch

das geht, allerdings flackert dann vor jedem Druck der Bildschirm, als ob ein 
Fenster ganz schnell auf und zu geht.

Sub papierformat_prüfen()
  dim g as Graphics
  g = OpenPrinter(ps)
  if g = nil then seitesetup
End Sub


Ich suche nach einer Lösung, die keine Probleme verursacht.

RB2011R2 und 10.6.8

Gruß

Stefan