Print preview last page..

[Richard]

I would like to preview the last page im my report:

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

Dim stDocName As String

stDocName = "rptScanlog"
DoCmd.OpenReport stDocName, acPreview

Exit_Command13_Click:
Exit Sub

Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click

End Sub

Thanks and happy new year to all.

 

[Wayne-I-M]

Private Sub ButtonName_Click()
Dim I As Integer
DoCmd.OpenReport "ReportName", acViewPreview
I = Reports!ReportName.Pages
SendKeys "{F5}{Delete}"
SendKeys I & "{ENTER}"
End Sub

Change ButtonName and ReportName to what they are in your application


Happy New Year

 

[Richard]

Awesome thank you, could you talk a little about the 2 sendkeys lines and
how I could use that.

 

[Wayne-I-M]

Sendkeys are (very simply) a code that repreents you hitting a key on the
keyboard.

Open the code window and press F1 help and search sendkey and you will get
lots of examples of keys

 

[John W. Vinson]

Sendkeys are (very simply) a code that repreents you hitting a key on the
keyboard.

Open the code window and press F1 help and search sendkey and you will get
lots of examples of keys

It should be noted that Sendkeys is generally recommended only as a last-ditch
choice when there's NO other way to do it; the problem is that you have no
guarantee that the key value being sent will get to the right destination. If
you have multiple windows open, the character may end up in some other
application.

 

[Wayne-I-M]

Thanks for that John

I would think that it should be possible to check for other open "stuff" and
close them on some OnClick or warn to user then, if nothing is open then run
the code. But I can't see the OP's application and we don't have enough
details for this.

Is there another method of previewing on open the last page of a report
without using sendkeys?

PS - happy New Year

 

[Richard]

I would welcome other methods of print preview the last page also. If the
sendkeys are known to have problems.

Thanks Richard