And other proposal ....
Suppose the following situation...
2 printers to use a matrix and a laser.. Default printer is laser for for all documents.
if you use de matrix printer the new default printer is this...
if we want to preserve the default printer ...
DATA cBackPrinter
DATA lDefaultPrint INIT .f.
METHOD New( cDocument, lUser, lPreview, cModel, lModal, lSelection, cFile ) CLASS TPrinter
local aOffset
local cPrinter
local backModel
DEFAULT cDocument := "FiveWin Report" ,;
lUser := .f., lPreview := .f., lModal := .f., lSelection := .f.
if ::lDefaultPrint
::cBackPrinter := GetProfString( "windows", "device" , "" ) // new
endif
......
METHOD End() CLASS TPrinter
........
if ::lDefaultPrint
WriteProfString( "windows", "device", ::cBackPrinter ) // new
SysRefresh()
PrinterInit()
endif
oPrinter := nil
return nil
↧