I would like to give my users a button that will print the summary page of a
report quickly (first Page only). Is there a way to programmatically print
only the first page of a report, transparently to the user?

I have seen the Docmd.PrintOut, however, I think that is only for forms and
datasheets...

"ThriftyFinanceGirl" <(E-Mail Removed)> wrote in
message news:9CF712A1-8AE9-4F46-B430-(E-Mail Removed)...
>I would like to give my users a button that will print the summary page of
>a
> report quickly (first Page only). Is there a way to programmatically
> print
> only the first page of a report, transparently to the user?
>
> I have seen the Docmd.PrintOut, however, I think that is only for forms
> and
> datasheets...


The help file does imply that, but it's wrong. Bear in mind, though, that
it will print out the active object, so you have to ensure that your report
is the active object.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)

Hmmmm... that will be tricky since I would open the report through a
procedure on a form.... any suggestions on that?

"Dirk Goldgar" wrote:

> "ThriftyFinanceGirl" <(E-Mail Removed)> wrote in
> message news:9CF712A1-8AE9-4F46-B430-(E-Mail Removed)...
> >I would like to give my users a button that will print the summary page of
> >a
> > report quickly (first Page only). Is there a way to programmatically
> > print
> > only the first page of a report, transparently to the user?
> >
> > I have seen the Docmd.PrintOut, however, I think that is only for forms
> > and
> > datasheets...
>
>
> The help file does imply that, but it's wrong. Bear in mind, though, that
> it will print out the active object, so you have to ensure that your report
> is the active object.
>
> --
> Dirk Goldgar, MS Access MVP
> Access tips: www.datagnostics.com/tips.html
>
> (please reply to the newsgroup)
>

"ThriftyFinanceGirl" <(E-Mail Removed)> wrote in
message news:0ED78E83-E54D-41F0-B61C-(E-Mail Removed)...
> Hmmmm... that will be tricky since I would open the report through a
> procedure on a form.... any suggestions on that?


You can do this:

DoCmd.OpenReport "YourReport", acViewPreview
DoCmd.PrintOut acPages, 1, 1
DoCmd.Close acReport, "YourReport", acSaveNo

That will show the report to the user momentarily, though, just long enough
to send it to the printer. If you don't want the user to see the report at
all, it will be a lot trickier.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)

On Mon, 14 Sep 2009 08:11:01 -0700, ThriftyFinanceGirl wrote:

> I would like to give my users a button that will print the summary page of a
> report quickly (first Page only). Is there a way to programmatically print
> only the first page of a report, transparently to the user?
>
> I have seen the Docmd.PrintOut, however, I think that is only for forms and
> datasheets...

You are not correct regarding DoCmd.PrintOut.
It prints out whatever the active object is, so, if you have a command
button on your form and you wish to print out a report you must first
select the report, otherwise, by itself, you will print the form
because the form is the active object.

Just the first page?
The report is NOT open?

Code a command button on a form:

DoCmd.SelectObject acReport, "ReportName", True
DoCmd.PrintOut acPages, 1,1

If the Report is already open in Preview, change True to False.
--
Fred
Please respond only to this newsgroup.
I do not reply to personal e-mail

That's what I was thinking. I think that I will just let them see a flash of
the report and be done with it! Sometimes you don't need to go overboard on
the programming! Thanks!

"Dirk Goldgar" wrote:

> "ThriftyFinanceGirl" <(E-Mail Removed)> wrote in
> message news:0ED78E83-E54D-41F0-B61C-(E-Mail Removed)...
> > Hmmmm... that will be tricky since I would open the report through a
> > procedure on a form.... any suggestions on that?
>
>
> You can do this:
>
> DoCmd.OpenReport "YourReport", acViewPreview
> DoCmd.PrintOut acPages, 1, 1
> DoCmd.Close acReport, "YourReport", acSaveNo
>
> That will show the report to the user momentarily, though, just long enough
> to send it to the printer. If you don't want the user to see the report at
> all, it will be a lot trickier.
>
> --
> Dirk Goldgar, MS Access MVP
> Access tips: www.datagnostics.com/tips.html
>
> (please reply to the newsgroup)
>

"fredg" <(E-Mail Removed)> wrote in message
news:do98qophaa6j$.1b9uidyh4w3ar$.(E-Mail Removed)...
>
> Just the first page?
> The report is NOT open?
>
> Code a command button on a form:
>
> DoCmd.SelectObject acReport, "ReportName", True
> DoCmd.PrintOut acPages, 1,1


The only problem with this, Fred, is that it will display the database
window/nav pane, even if the user has hidden it.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)

Wouldn't using the Echo method work, something like:

Public Sub EchoTest()

On Error GoTo ProcError

Application.Echo False
DoCmd.OpenReport "rptYourReport", acPreview
DoCmd.PrintOut acPages, 1, 1
DoCmd.Close acReport, "rptYourReport"

ProcExit:
Application.Echo True
Exit Sub
ProcError:
MsgBox Err.Number, Err.Description
Resume ProcExit

End Sub


----
HTH
Dale



"Dirk Goldgar" wrote:

> "ThriftyFinanceGirl" <(E-Mail Removed)> wrote in
> message news:0ED78E83-E54D-41F0-B61C-(E-Mail Removed)...
> > Hmmmm... that will be tricky since I would open the report through a
> > procedure on a form.... any suggestions on that?
>
>
> You can do this:
>
> DoCmd.OpenReport "YourReport", acViewPreview
> DoCmd.PrintOut acPages, 1, 1
> DoCmd.Close acReport, "YourReport", acSaveNo
>
> That will show the report to the user momentarily, though, just long enough
> to send it to the printer. If you don't want the user to see the report at
> all, it will be a lot trickier.
>
> --
> Dirk Goldgar, MS Access MVP
> Access tips: www.datagnostics.com/tips.html
>
> (please reply to the newsgroup)
>

"Dale Fye" <(E-Mail Removed)> wrote in message
news:78EBC707-0702-4088-B109-(E-Mail Removed)...
> Wouldn't using the Echo method work, something like:
>
> Public Sub EchoTest()
>
> On Error GoTo ProcError
>
> Application.Echo False
> DoCmd.OpenReport "rptYourReport", acPreview
> DoCmd.PrintOut acPages, 1, 1
> DoCmd.Close acReport, "rptYourReport"
>
> ProcExit:
> Application.Echo True
> Exit Sub
> ProcError:
> MsgBox Err.Number, Err.Description
> Resume ProcExit
>
> End Sub


I forgot all about that, Dale! I believe it would. The user would still
see the "Printing ..." dialog, but not the report's print-preview window.
Good thinking!

The MsgBox in your error-handler isn't quite right. You may want this
instead:

MsgBox Err.Description, vbExclamation, "Error " & Err.Number


--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)

Yep, that's what I was going to try...We'll see if it still recognizes the
focus even with the echo turned off. Great minds think alike!

"Dale Fye" wrote:

> Wouldn't using the Echo method work, something like:
>
> Public Sub EchoTest()
>
> On Error GoTo ProcError
>
> Application.Echo False
> DoCmd.OpenReport "rptYourReport", acPreview
> DoCmd.PrintOut acPages, 1, 1
> DoCmd.Close acReport, "rptYourReport"
>
> ProcExit:
> Application.Echo True
> Exit Sub
> ProcError:
> MsgBox Err.Number, Err.Description
> Resume ProcExit
>
> End Sub
>
>
> ----
> HTH
> Dale
>
>
>
> "Dirk Goldgar" wrote:
>
> > "ThriftyFinanceGirl" <(E-Mail Removed)> wrote in
> > message news:0ED78E83-E54D-41F0-B61C-(E-Mail Removed)...
> > > Hmmmm... that will be tricky since I would open the report through a
> > > procedure on a form.... any suggestions on that?
> >
> >
> > You can do this:
> >
> > DoCmd.OpenReport "YourReport", acViewPreview
> > DoCmd.PrintOut acPages, 1, 1
> > DoCmd.Close acReport, "YourReport", acSaveNo
> >
> > That will show the report to the user momentarily, though, just long enough
> > to send it to the printer. If you don't want the user to see the report at
> > all, it will be a lot trickier.
> >
> > --
> > Dirk Goldgar, MS Access MVP
> > Access tips: www.datagnostics.com/tips.html
> >
> > (please reply to the newsgroup)
> >