Print 3 almost the same reports for one record......

[lynsey2]

i have a form that users fill out and then click on print

i need the print action to print out 3 copys od the same data

the only difference being a title in the top left hand corner

everything else is exactly the same!

i have made the reports for the copys all seperate.

i have simply done this by saving the original report as a new one with a different name and changing the title in design view!

problem being how do i get my print button to print all 3 reports using the one record from the form. (the forms bound to a table thats where i am getting the data for the reports from)??

Thanxs in advance!

 

[ColinEssex]

Hi Lyns

One way to do it is have a macro to print the 3 reports one after the other.

Bet its not as simple as that though

Col

 

[lynsey2]

never is eh.....

hope you are ok!

 

[Hayley Baxter]

Lyns I reckon you could do this by only using the one report if all you are changing is the heading then you can maybe add some code or something telling it to print 3 copies with different headings I am not too sure of the code by I would say chances are it's achievable and it's a waste of space having 3 reports with the same data.

I'll look into this for you and let you know If I come up with a solution.

Hay

 

[smed]

It is possible to use 1 report for 3 prints with different titles.

1. Create a text box on your form (hidden if you want)

2. Create a Print button and paste the following procedure :

Private Sub btn_Print_Click()
Me.ReportTitle = "1"
DoCmd.OpenReport "ReportName", acViewNormal

Me.ReportTitle = "2"
DoCmd.OpenReport "ReportName", acViewNormal
End Sub

3. Create a text box on the Report to be used as a title and

4. Set the Control Source of the report title text box to "=[Forms]![FormName]![ReportTitle]"


Smed

 

[Hayley Baxter]

Well there's your code Lyns won't need to bother searching for you after all!.

PS I am free on wednesday then I've got things on all week until tuesday 24th, let me know

Hay

 

[lynsey2]

wed....as in tmo?? I can pick you up for definate 2mo if you want!!say 5pm at your work!!

 

[Hayley Baxter]

Yeah wed as in tomorrow. Yes that sounds fine wrk at 5pm do you know where to go? Do you want me to come out to the road that leads into the building that might be easier for you as it's a very busy building.

I'll see you then
Hay

 

[ColinEssex]

Ok gang. I'll be there, where shall we go? Meal then a club?

We can have an AGM

Col

 

[lynsey2]

dont even know where your work is i take it i come off on the 1st Dunf turn off after the bridge?? and head in that way??might need directions!! Where be you anyway col? i thought you were in essex!mind you your prob loaded bring up your private jet n stuff!

 

[lynsey2]

whats an AGM?

 

[lynsey2]

oh and i ment to say thanx a million to smed!! i forgot ta, cheers, thanks, thank you!!!!!etc

 

[ColinEssex]

Hi Lyns,

Yeah, I have a private jet - Hmmm- I wish, I work for the NHS remember?

AGM is "A good Madras" (as in curry)

Yes, you're right, Essex is perhaps a bit far from you for a night out. Perhaps some other time.

Catch you later Lyns
Col

 

[lynsey2]

Col....I knew that!!!!

 

[lynsey2]

Private Sub PrintART3copys_Click()
Me.ReportTitle = "Pharmacy Copy"
DoCmd.OpenReport "ART", acViewNormal

Me.ReportTitle = "Case Notes Copy"
DoCmd.OpenReport "ART", acViewNormal

Me.ReportTitle = "GP Copy"
DoCmd.OpenReport "ART", acViewNormal

End Sub

i did this and it didnt work! i called my text box on my form ReportTitle the name of my actual report is ART i take it i have done something wrong as i get a run time error ' 438' object doesnt support this property or method!

 

[Hayley Baxter]

Hi Lyns

AGM (Annual General Meeting)

You take the first turn off as you come off the bridge once your round the corner you cannot miss the building infact you come out in front of it but you need to take your right as you go round the roundabout. You can't possibly get lost but you know my no if there's any probs give me a call.

Hay

 

[lynsey2]

would this work

Private Sub PrintScript_Click()
On Error GoTo Err_PrintScript_Click


DoCmd.RunCommand acCmdSaveRecord
Me.ReportTitle = "Pharmacy Copy"
DoCmd.OpenReport "ART", acViewNormal

Me.ReportTitle = "Case Notes Copy"
DoCmd.OpenReport "ART", acViewNormal

Exit_PrintScript_Click:
Exit Sub

Err_PrintScript_Click:
Msgbox Err.Description
Resume Exit_PrintScript_Click

End Sub

 

[lynsey2]

ok babe...ill see you at 5 tmo! im sure ill not get lost!.....well kinda sure

 

[lynsey2]

Did you say that you dont have a computer at home??? if so instead of coming back to mine in Edinburgh i could just bring a lap top if you want... it has everything on it anyway! let me know!

 

[Hayley Baxter]

Whatever is easiest for you I don't mind. I'm getting a pc at home soon just deciding on a few at the moment. Let me know what you want to do because If we decide on Edinburgh I thought I'd bring you my VB book but I won't have to bother if you're coming to me but remember I don't live in Dunfermline but I am nearby.

Hay