Hi,
warum akzeptiert RB denn ps.Pageleft = 0 nicht?
"Code, Window1.Listbox1.ContextualMenuAction, line 209, Cannot assign a value
to this property, ps.PageLeft = 0"
Warum kann man diese Variable nicht setzen? Oder wie kann ich noch die linke
Position mitgeben?
dim ps as new PrinterSetup
Dim g As Graphics
rpt = new ReportInventar
ps.MaxHorizontalResolution = 300
ps.MaxVerticalResolution = 300
ps.Pageleft = 0 <<<<<<
if ps.PageSetupDialog then
g = OpenPrinterDialog(ps, nil)
if g <> nil then
if rpt.run(ds,ps) then
if rpt.document<>nil then
rpt.Document.Print(g)
end if
end if
end if
end if
redim app.DatabaseReport(-1,-1)
Gruß
Klemens
