Thanks Harrie,
I do not know much about PC, could you please give me some more assistance?
I have modified it thus:
Dim ok as Boolean
Dim gPS as printersetup
gPS = new printersetup
ok=gPS.PageSetupDialog
if ok then
gPSSettings=gPS.setupString
gxSF=gPS.horizontalResolution/72 // horizontal scale factor
gySF=gPS.verticalResolution/72 // vertical scale factor
updatePref("prtsettings",gPSSettings) // update preference you can
ignore this
end if
return ok
I think I need to assign some properties to make it work.
Kindly assist.
Lennox.
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>
|