Walter Meester
HoogkarspelNetherlands
General information
Category:
Reports & Report designer
Michelle,
In addition to what Cristof and Rick said. This is a confirmed bug and can be found in the MS kb. It occurs when a preview is maximized.
I've found a solution to make a class which shows me a preview including the solution cristof gave and a solution which allows you to have your own title bar above your preview. The code looks like this:
LPARAMETER cReport, lPreview, lNoPrompt, cOptions
cOptions=IIF(!EMPTY(cOptions),cOptions,"")
THIS.lSucces=.T. && could be changed in the error event
DO CASE
CASE !FILE(cReport) AND !FILE(cReport+".frx")
WAIT WINDOW "Het rapport is niet gevonden"
CASE lPreview
DEFINE WINDOW _Preview FROM 1,1 TO WROWS("")-2,WCOLS("")-2 ;
CLOSE FLOAT NOMINIMIZE GROW ZOOM SYSTEM TITLE "Afdrukvoorbeeld" NAME preview
WITH Preview
.Top=5
.Left=5
.Width=_Screen.Width-20
.Height=_Screen.Height-40
.Icon="C:\tax\icons\vfp\preview.ico"
.MDIFORM=.T.
ENDWITH
PUSH MENU _MSYSMENU
REPORT FORM (cReport) &cOptions NOCONSOLE WINDOW _Preview PREVIEW
POP MENU _MSYSMENU
RELEASE WINDOW _Preview
CASE lNoPrompt
REPORT FORM (cReport) &cOptions NOCONSOLE TO PRINTER
OTHERWISE
REPORT FORM (cReport) &cOptions NOCONSOLE TO PRINTER PROMPT
ENDCASE
RETURN THIS.lSucces
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only