By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,647 Members | 1,604 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,647 IT Pros & Developers. It's quick & easy.

Controling Report Printing Positions

P: n/a

Hi Folks, am working on an archiving project which they use a little
format of paper on which they type on it code and descriptions on each
line, and they append on it new lines later on via a
typewriter..........

and since we gonna automate this work am facing a slight prob.....

So my question is can i from access reports control from which position
i want to start printing ???

meaning last time i printed on the paper 2 lines and later on i wanna
print from the third line without reprinting the previous lines ???!!!!
thanks
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
Nov 12 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
On 15 Jan 2004 16:39:24 GMT, Joe Saliba <jo*******@hotmail.com> wrote:

Hi Folks, am working on an archiving project which they use a little
format of paper on which they type on it code and descriptions on each
line, and they append on it new lines later on via a
typewriter..........

and since we gonna automate this work am facing a slight prob.....

So my question is can i from access reports control from which position
i want to start printing ???

meaning last time i printed on the paper 2 lines and later on i wanna
print from the third line without reprinting the previous lines ???!!!!
thanks
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!


I think this will help.

Add a Report Header to your report.
Add an unbound control to the header.
Name it 'SkipControl'.

In the Declarations section of the Report code window write:
Dim intY as Integer
====
Code the Report Header Format event:
[SkipControl] = "Skip"
' The next line is optional if you do not want the report header to
print
Cancel = True
====
Code the Report's Open event:

intY = InputBox("Skip how many lines?","Skip",0)
====
Code the Detail Print event:

If PrintCount <= intY And [SkipControl] = "Skip" Then
Me.NextRecord = False ' Skip the line on sheet
Me.PrintSection = False
Else
[SkipControl] = "No" ' Print
Me.PrintSection = True
Me.NextRecord = True
End If
====
When you run this report, you will be prompted to enter the number of
lines to skip.

--
Fred

Please reply only to this newsgroup.
I do not reply to personal e-mail.
Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.