Report

[raai]

Hi I have a report where you have to print more than one record as I can do this.

Ie I have bills which need to print. To print using a preprinted sheet each receipt has a defined size 10cm x 15cm sample. It turns out that each leaf are continuous continuous sheets fit you need to print receipts and 3 so 3 bills on a single sheet.

You could say that in a letter sheet fit the 3 receipts I comment. How I can do I say?

 

[ShankarJ]

Hi!

Difficult to understand your question (looks like an automatic translation to English) but I guess you are asking "How do I print 3 receipts on a Letter size page?". The answer is simple - go to Report Properties and change the paper to Custom and set the size of the Report to the size of the each receipt (in mm or 1/1000 inch) and that's it.

Regards

 

[raai]

Ok,I have a report and i create the control in runtime, my report only have a detail.

I need print 3 times the detail but one below other. How can i do this?

 

[ShankarJ]

Hi!

Post your report structure & the size of the stationery and I will tell you what needs to be changed.

Regards

 

[raai]

My reporte Structure

Report REPORT('Print form'),AT(6,30,200,233),PRE(RPT),FONT('MS Sans Serif',8,,FONT:regular), |
MM
Detail DETAIL,AT(,,192,6),USE(?Detail),FONT('Arial',,,)
END
END

In my tables a save, position "Y" of the camps.

My code in TakeRecord

locl:ndet=1
c#=3000
loop r#=1 to records(qrci)
get(qrci,r#)
settarget(Report,?detail)
loop
next(DetForm)
!check if exist error

!create the controls to my report

end
settarget
print(rpt:detail)
end

 

[ShankarJ]

Hi!

Since your report has no page header/footer and has a width of 15cm and height of 10cm, the report should be :

Report REPORT('Print form'),AT([red]0,0,150,100[/red]),PRE(RPT),FONT('MS Sans Serif',8,,FONT:regular),MM

...

Detail DETAIL,AT(,,[red]150[/red],6),USE(?Detail),FONT('Arial',,,)

and you make sure that the number of detail bands printed does not exceed 16 (16 x 6mm = 96mm).

Also, since you are using a non-standard form, this can cause a problem in OS from XP and greater since all forms need to defined in Start -> Printers & Faxes -> File -> Server Properties -> Forms. You can overcome this in your program by ::

1. Resetting the Auto Paper detection for reports before the OPEN(Report) call (ThisWindow.OpenReport - BEFORE parent call).

SYSTEM{PROP:AutoPaper} = ''

2. Explicitly setting the paper size after the OPEN(Report) call (ThisWindow.OpenReport - AFTER parent call).

IF NOT ReturnValue
   SETTARGET(Report)
   Report{PROPPRINT:Paper}       = PAPER:User
   Report{PROPPRINT:PAPERHeight} = 100
   Report{PROPPRINT:PAPERWidth}  = 150
   SETTARGET
END

I hope this resolves your problem.

Regards

 

[ShankarJ]

Hi!

Are you the ISAI who posted on comp.lang.clarion?

Regards

 

[raai]

ShankarJ,
Can you explain me this part?.

you make sure that the number of detail bands printed does not exceed 16 (16 x 6mm = 96mm).

Yes, i posted how isai on comp.lang.clarion...

Thanks for your help

 

[ShankarJ]

Hi!

Since your detail band has a height of 6 mm and the maximum height of the paper is 100 mm, anything more that 16 PRINT(RPTetail) will cause a page overflow.

Regards

 

[raai]

Thanks for you help.

I resolved my problem.