Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Preview Report - Jump to 75% Zoom programmatically
Message
 
To
12/03/2004 10:12:48
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00885593
Message ID:
00885604
Views:
15
Remove ZOOM WINDOW "Report Designer" MAX
Here is exactly what works for me. I create a program:
*YzoomIT.prg
IF WEXIST("Print Preview") AND NOT wexist("Printing...")

	LOCAL lcsetresource
	lcsetresource=SET("resource")
	SET RESOURCE OFF		&&IMPORTANT, otherwise it will remember the last setting 
		* (when set to MAX with Ctrl+F10) and next time will set it back
	keyboard '{Ctrl+F10}'   && remove it if you wish

	KEYBOARD '{F3}' &&75%
*	KEYBOARD '{F3}{F3}' &&50%
*	KEYBOARD '{F3}{F3}{F3}' &&25%
*	KEYBOARD '{F3}{F3}{F3}{F3}' &&10%
	
        MOUSE DBLCLICK AT -0.1,0.2 WINDOW "Print Preview"
	
	SET RESOURCE &lcsetresource

endif
In the report title I added a field with expression yzoomit().





>Thanks for the idea. It starts out at 75% when the toolbar is still hovering over the print preview window and then when the print preview toolbar is docked, it jumps to 100%... I'm looking for any zoom window or any other commands that may be causing that...
>
>
>>For your first question try this:
>>IF WEXIST( "print preview" )
>>
>> ZOOM WINDOW "Report Designer" MAX
>> KEYBOARD '{F3}' &&75%
>> *KEYBOARD '{F3}{F3}' &&50%
>> *KEYBOARD '{F3}{F3}{F3}' &&25%
>> *KEYBOARD '{F3}{F3}{F3}{F3}' &&10%
>>
>>endif
>>
>>>Is there anyway when previewing a report to have the report open up at 75% zoom? My report preview is opened up in a form...
>>>
>>>Also, to dock the report preview toolbar I use the code MOUSE DBLCLICK AT -0.1,0.2 WINDOW "Print Preview" in the form's deactivate... and it works great. However, i would like to get rid of the flash that occurs because the toolbar opens up on top of the preview form and then docks... it also leaves a shadow image of where the toolbar was before it was docked... Anyway to hide it until it is docked?
>>>
>>>
>>>TIA,
>>>TRACY
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform