Albert,
As shown in my messages, the name of variable in _VFP.SetVar has to be enclosed in quotes. Also it's redundant to compare logical values to .T. or .F. because thay are logical already.
gedruckt = .F.
REPORT FORM liste_artikelstamm TO PRINTER PROMPT preview
MESSAGEBOX("Printstatus= " + TRANSFORM(gedruckt))
if gedruckt
........
endif
_VFP.SetVar("gedruckt", sys(2040) = "2")
>I have seen your message 006793 about returning a printer status and i hope that i understood
>the trick ?
>
>I also want to know wether the report was realy printed or just previewed.
>(vfp8.0 sp1)
>
>
>My print button click event in my form:
>
>gedruckt = .F.
>REPORT FORM liste_artikelstamm TO PRINTER PROMPT preview
>MESSAGEBOX("Printstatus= " + TRANSFORM(gedruckt))
>if gedruckt = .T.
> ........
>endif
>
>
>My report summary band on Exit:
>
>_VFP.SetVar(gedruckt,iif(sys(2040) = "2",.T.,.F.))
>
>But after preview with printing or just previewing gedruckt is allways .F. ???
--sb--