Yoshiyuki asked:

> Please give the toolbox function that obtains height and the width  
> of  the printing paper being set now.

I haven't done much with printing but I wonder if this will help?

'----------
local mode
local fn DisplayPrintRect( s as Str255, r as ^PMRect )
'~'1
print s
print "L:";r.left,"T:";r.top,"R:";r.right,"B:";r.bottom
print "W:";r.right - r.left,"H:";r.bottom - r.top
print
end fn


local fn DoMenu
'~'1
dim as PMRect   printRect

long if ( menu(_menuID) == 1 and menu(_itemID) == 1 )
def page : if ( PRCancel ) then exit fn

call PMGetUnadjustedPageRect( gFBPageFormat, @printRect )
fn DisplayPrintRect( "Unadjusted page rect", printRect )

call PMGetAdjustedPageRect( gFBPageFormat, @printRect )
fn DisplayPrintRect( "Adjusted page rect", printRect )

call PMGetUnadjustedPaperRect( gFBPageFormat, @printRect )
fn DisplayPrintRect( "Unadjusted paper rect", printRect )

call PMGetAdjustedPaperRect( gFBPageFormat, @printRect )
fn DisplayPrintRect( "Adjusted paper rect", printRect )
end if
menu
end fn

menu 1,0,1,"File"
menu 1,1,1,"Page Setup..."

window 1
print "Choose File>Page Setup"

on menu fn DoMenu


do
HandleEvents
until gFBQuit
'----------


Bernie;