Different footers in reports

[bijondhanbad]

I want to have different footers in different copies of the same page. Like while printing an invoice, I want CUSTOMER COPY on one copy, SELLER COPY on the second copy, OFFICE COPY on the third copy of the invoice.

How do I do it?
Will someone help..

Regards,
Bijon

[Rabbit]

I want to have different footers in different copies of the same page. Like while printing an invoice, I want CUSTOMER COPY on one copy, SELLER COPY on the second copy, OFFICE COPY on the third copy of the invoice.

How do I do it?
Will someone help..

Regards,
Bijon

Make 3 copies of the report and use them as sub reports in a larger report.

[puppydogbuddy]

Make 3 copies of the report and use them as sub reports in a larger report.

Another alternative:

Create the multiple prints in code with a For/Next Loop. Use an unbound textbox named txtReportTitle with its “can grow” property set to yes to change Title for each copy. Replace "YourFormReport " with the actual name of your report.

Private Sub btnInvoicePrint_Click()

Dim x as Integer                   ‘loop counter

For x = 1 to 3
	If x = 1 then
		txtReportTitle.Value = “Customer Copy”
	ElseIf x = 2 then
		txtReportTitle.Value = “Seller Copy”
	ElseIf x = 3 Then
		txtReportTitle.Value = “Office Copy”
	Else
		Exit Sub
	End If
	DoCmd.OpenReport “yourFormReport”, acViewNormal
Next x

End Sub

[bijondhanbad]

Tried this out.
Everytime it is giving an error--- Object required.
On debugging, it points to the line : txtReportTitle. Value = “Customer Copy”

Please help
regards
bijon

Another alternative:

Create the multiple prints in code with a For/Next Loop. Use an unbound textbox named txtReportTitle with its “can grow” property set to yes to change Title for each copy. Replace "YourFormReport " with the actual name of your report.

Private Sub btnInvoicePrint_Click()

Dim x as Integer                   ‘loop counter

For x = 1 to 3
	If x = 1 then
		txtReportTitle.Value = “Customer Copy”
	ElseIf x = 2 then
		txtReportTitle.Value = “Seller Copy”
	ElseIf x = 3 Then
		txtReportTitle.Value = “Office Copy”
	Else
		Exit Sub
	End If
	DoCmd.OpenReport “yourFormReport”, acViewNormal
Next x

End Sub

[puppydogbuddy]

Tried this out.
Everytime it is giving an error--- Object required.
On debugging, it points to the line : txtReportTitle. Value = “Customer Copy”

Please help
regards
bijon

Did you go into design view and add an unbound textbox, and set its name property to txtReportTitle?

If you did the above and it is not working, let me know.

[bijondhanbad]

Added an unbound textbox in the Report footer section with that name.Set the CanGrow property to yes and tried it out.
Doesn't work.
Please help.
bijon

Did you go into design view and add an unbound textbox, and set its name property to txtReportTitle?

If you did the above and it is not working, let me know.

[puppydogbuddy]

Added an unbound textbox in the Report footer section with that name.Set the CanGrow property to yes and tried it out.
Doesn't work.
Please help.
bijon

I think the problem is that the title needs to inserted in the Report's open event, and therefore two event procedures are required...one for the button click to print the report and a separate sub for the insertion of the txtTitle during the report's open event. See the code for the two procedures below.

Private Sub btnInvoicePrint_Click()
Dim x as Integer                   ‘loop counter
 
For x = 1 to 3
    DoCmd.OpenReport “yourFormReport”, acViewNormal
Next x
End Sub

_______________ _______________ __________

Private Sub Report_Open(Cancel As Integer)
Dim x as Integer                   ‘loop counter
 
For x = 1 to 3
    If x = 1 then
        txtReportTitle.Value = “Customer Copy”
    ElseIf x = 2 then
        txtReportTitle.Value = “Seller Copy”
    ElseIf x = 3 Then
        txtReportTitle.Value = “Office Copy”
    Else
        Exit Sub
    End If
Next x
 
End Sub

[bijondhanbad]

It doesn't work still.
I tried another way. I deleted the second code from the report On Open event and pasted it on the Page footer "On print" event.

This time, however, it is asking for the invoice no on three different occassions but every time the footer comes out as Office Copy and not as desired.

Please try it out

Regards
bijon

[puppydogbuddy]

It doesn't work still.
I tried another way. I deleted the second code from the report On Open event and pasted it on the Page footer "On print" event.

This time, however, it is asking for the invoice no on three different occassions but every time the footer comes out as Office Copy and not as desired.

Please try it out

Regards
bijon

Ok. I tested the following code and it works on Access 2000:

Private Sub btnInvoicePrint_Click()
Dim x As Integer      'loop counter

For x = 1 To 3
Me.Painting = False
  DoCmd.OpenReport "YourInvoiceReport", acViewPreview
    If x = 1 Then
        Reports!YourInvoiceReport!txtReportTitle.Value = "Customer Copy"
    ElseIf x = 2 Then
        Reports!YourInvoiceReport!txtReportTitle.Value = "Seller Copy"
    ElseIf x = 3 Then
        Reports!YourInvoiceReport!txtReportTitle.Value = "Office Copy"
    Else
        Exit Sub
    End If
  DoCmd.OpenReport "YourInvoiceReport", acViewNormal
  DoEvents
Me.Painting = True
Next x

End Sub