Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Report

Status
Not open for further replies.

raai

Programmer
Jul 17, 2008
30
MX
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?
 
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
 
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?
 
Hi!

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

Regards
 
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
 
Hi!

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

Code:
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).

Code:
SYSTEM{PROP:AutoPaper} = ''

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

Code:
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

 
Hi!

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

Regards
 
ShankarJ,
Can you explain me this part?.

ShankarJ said:
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
 
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(RPT:Detail) will cause a page overflow.

Regards
 
Thanks for you help.

I resolved my problem.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top