>WITH ThisForm > .LockScreen = .T. > .Closable = .F. > .SetAll( "Visible", .F. ) > .WindowState = 2 > .LockScreen = .F. > >ENDWITH > >* Experiment with the following KEYBOARD commands to force full-screen report preview (may need 1, 2, or ?) >KEYBOARD "{CTRL+F10}" >KEYBOARD "{CTRL+F10}" >REPORT FORM ( tcReport ) TO PRINTER PROMPT PREVIEW > >WITH ThisForm > .LockScreen = .T. > .Closable = .T. > .SetAll( "Visible", .T. ) > .WindowState = 0 > .LockScreen = .F. > >ENDWITH >>I don't know if this gives you the toolbar you want. It's tricky to get it to work just the way you want, I won't be providing any further support for this code.
* NOTE: Using FORM class here directly for sake of illustrating a coding technique, in reality you should * use a subclass of FORM (i.e. whatever "master" class you're using for all your forms). Otherwise * there is no other way to set various properties like ShowWindow oPreviewWin = CREATEOBJECT("FORM") WITH oPreviewWin .NAME = "WPREVIEW" .CAPTION = "Report Preview" .WIDTH = 800 .HEIGHT = 600 .TOP = (SYSMETRIC(1) - .WIDTH) / 2 .LEFT = (SYSMETRIC(2) - .HEIGHT) / 2 .MOVABLE = .T. .CLOSABLE = .T. .MDIFORM = .T. .MINBUTTON = .T. .MAXBUTTON = .T. .ZOOMBOX = .T. .HALFHEIGHTCAPTION = .F. ENDWITH * NOTE: The code for saving current directory and restoring it has been added to work around possible problem * which could arise if the current directory changes unexpectedly -- which could happen if a "save to file" dialog * is used -- even if you don't explicitly code such a thing (e.g. If user selects printer associated with a PDF printer, * from which a "save as" dialog would often appear). lcCurDir = SYS(5)+SYS(2003) && Save current directory KEYBOARD "{CTRL+F10}" && maximize preview window REPORT FORM (m.cReptForm) ; PREVIEW WINDOW wPreview TO PRINT PROMPT SET DEFAULT TO (m.lcCurDir) && Restore current directory RELEASE oPreviewWin