your sample Run without problem
(replaced msgstop with alert )
In my file
Charset is: 255
Font Is: Lucida Console
2009/11/7 Itamar Lins
> Hi! Massimo, please test.
>
> Function Main
>
> aPrn := GetPrinters()
> If empty(aPrn)
> MsgStop("Error")
> return .f.
> EndIf
>
> oPrn := win_prn():New(G
Hi! Massimo, please test.
Function Main
aPrn := GetPrinters()
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies:= 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
