DW Print Preview Zoom: Fit Page Width??

[Tom Hansen]

Is there an easy way to implement "Fit Page Width" in a Datawindow Print
Preview Zoom setting?

I.e.: When a datawindow is in Print Preview mode, is there a way to
query it to find out what the physical page width is, so that I can then
set the print preview zoom so that the page just fits in the window?

THANKS!!

--
Tom Hansen
to...@execpc.NOSPAMcom
http://www.execpc.com/tomh

[Chris Gross]

There is a way to create "Fit Height" and "Fit Width" buttons. The trick is
checking the datawindow properties called verticalscrollmaximum and
horizontalscrollmaximum. When these properties are equal to "0" then the
scroll bars are not visible, ie. the width fits or the height fits. So you
will need to programmatically alter the zoom up or down appropriately.
Below is an example of a "Fit Width".

boolean lb_shrink

setpointer(hourglass!)
dw_report.setredraw(false)

if dw_report.object.datawindow.horizontalscrollmaximum <> "0" then lb_shrink
= TRUE

if lb_shrink then

Do Until dw_report.object.datawindow.horizontalscrollmaximum = "0"
dw_report.object.datawindow.print.preview.zoom =
integer(dw_report.object.datawindow.print.preview.zoom) - 1
Loop

else

Do Until dw_report.object.datawindow.horizontalscrollmaximum <> "0"
dw_report.object.datawindow.print.preview.zoom =
integer(dw_report.object.datawindow.print.preview.zoom) + 1
Loop
dw_report.object.datawindow.print.preview.zoom =
integer(dw_report.object.datawindow.print.preview.zoom) - 1

end if

dw_report.setredraw(true)

return

Be careful though. This operation is sometimes very CPU intensive and can
cause a noticeable pause. Sorry for the late response but I hope you can
still use the technique.

Chris Gross
PB Developer's Station - http://www.geocities.com/~cgross1

Tom Hansen wrote in message <3676E134...@execpc.com>...