Re: Printing page 1 of X

>
> Le 16 mai 08 à 03:59, Guy Algot a écrit :
>
>> I was hoping to not go thru what you have done to get it to work.  
>> Print the form, get the #, cancel it, then print for real. Never  
>> as easy as it seems. ;-)
>>
>> So if you suppress the PRINT FORM, how are you getting the height  
>> of each section?
>
> You can't: only the form "knows" the objects (markers, fields and  
> so on), and only its method form can read positions, resize them,  
> and accept or not printing with CANCEL.
>
> I use a wrapper of PRINT FORM, something like this:
>   wrapPrintForm (->table;form{;printMarker{;maxHeight{;truncHeight)  
> -> height of printed section
> when I pass $4 maxHeight =0, wrapPrintForm calculates but does not  
> print. I use 4 process variables to send and receive params between  
> wrapper and method form (pseudo params), as below.
>
>   `method form
> ...
>   `read pseudo params from process var:
> $lMarker:=vl_printMarker  `$3 in wrapPrintForm
> $lmaxHeight:=vl_maxHeight  `$4 in wrapPrintForm
>   `read form objects
> $lPosMarker:=Get print marker($lMarker)
> $lPosPreviousMarker:=getPosPreviousMarker($lMarker)
> $lBeforeResize:=$lPosMarker-$lPosPreviousMarker
> Case of
> : ($lMarker=Form Detail )
> $lRedim:=...wrap_BEST_OBJECT_SIZE(->Object)...
> $lNewPosMarker:=$lPosMarker+$lRedim
> If (($lBeforeResize+$lRedim)>$lmaxHeight)  `too much
> CANCEL
> Else   `print
> `do SET PRINT MARKER and MOVE OBJECT
> End if
> End case
> vlPrintedHeight:=$lRedim+$lBeforeResize  `$0 in wrapPrintForm
>
>
> as you said, never as easy as it seems. ;-)
>
> --
> Arnaud de Montard
>