I changed rpreview.prg
1) METHOD Activate() CLASS TPreview
// ACTIVATE WINDOW ::oWnd MAXIMIZED ;
Changed to
ACTIVATE WINDOW ::oWnd ;
2) METHOD BuildWindow() CLASS TPreview
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
ICON oIcon ;
VSCROLL HSCROLL MDICHILD STYLE nOR( WS_CAPTION)
Inserted:
STYLE nOR( WS_CAPTION)
WndTop( ::hWnd, 0)
//WndLeft( ::hWnd, (::nwidth() - ::nwidth())-16 )
WndLeft( ::hWnd, 200)
::nHeight := ::nHeight() -80
3) cTitle := ::cFile
I changed printer.prg
printer.prg
1) DATA cFile
METHOD New( cDocument, lUser, lMeta, cModel, lModal, lSelection, cFile ) CONSTRUCTOR
METHOD ImportWMF( cFile, lPlaceable ) CLASS TPrinter
local hMeta, hOld, hWMF
local aData := PrnGetSize( ::hDC )
local aInfo := Array( 5 )
::cFile := cFile
