How do I print a blank Report

[DawnTreader]

Hello All

I have given up on the scale to fit access reports. it seems that there is
no easy way to do this and that any solution i might find wont help me over a
thin client setup.

So I need to move to the next problem that I have, how do i print a blank
version of my report?

when i need to be able to print just the lines, outlines and text of the
report without data, how do i do that?

 

[Al Campagna]

DawnTreader,
Make a copy of your current report, name it something like
rptMyReportBlank, and remove all the ControlSources for your data controls.
(excluding any text you want to show)
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

 

[DawnTreader]

Hello Al

I am wondering, if i was to kill the Record Source on opening the Report(s)
through code, will that work? or is that going to give me the "no data to
report" error.

i guess i should just go try it...

 

[DawnTreader]

Hello Al

i have already done that. i am tired of having duplicate items to manage.
because if i have 1 duplicate i actually need a total of four reports 2
filled and 2 blank. i have 2 frontends that are made for different purposes
and each needs the same form.

i have a total of 5 forms that i need this for in both frontends.
additionally each frontend may end up with an 8.5x11 and A4 papersize
version. so at this point i want to create a blank through code.

so here is my code on one of my reports:

Private Sub Report_Close()
On Error GoTo Err_Report_Close
DoCmd.ShowToolbar "ServDBReports", acToolbarNo

If Me.OpenArgs = "Blank" Then
Me.RecordSource = tblServiceReports
Forms!zzMAINFORM.Visible = True
Forms!pfrmReportMenu.Visible = True
Forms!pfrmBlankFormMenu.Visible = True
Else
Forms!zzMAINFORM.Visible = True
Forms!frmManageServiceReports.Visible = True
End If

Exit_Report_Close:
Exit Sub

Err_Report_Close:
MsgBox Err.Number & " " & Err.Description
Resume Exit_Report_Close

End Sub


Private Sub Report_Open(Cancel As Integer)
On Error GoTo Err_Report_Open

DoCmd.Maximize
DoCmd.ShowToolbar "ServDBReports", acToolbarYes

If Me.OpenArgs = "Blank" Then
Me.RecordSource = utblServiceReports
Forms!zzMAINFORM.Visible = False
Forms!pfrmReportMenu.Visible = False
Forms!pfrmBlankFormMenu.Visible = False
Else
Forms!zzMAINFORM.Visible = False
Forms!frmManageServiceReports.Visible = False
End If

Exit_Report_Open:
Exit Sub

Err_Report_Open:
MsgBox Err.Number & " " & Err.Description
Resume Exit_Report_Open

End Sub


you can see that i have a few forms that get in the way... in the other
frontend i have a totally different set of names for some forms. that means a
copy paste from one front end to the other isnt going to cut it either.

any insight would be helpful...

 

[John Spencer]

One method I have used in the past is to have code to set the font color
to WHITE on all the bound controls. THen I make sure to get a
one-record selection, execute the code to change the font color, and
then print the form or report.

Of course, you do not want to save the font color change.



'====================================================
John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County
'====================================================