Register Blogs FAQ Members List Social Groups Calendar Search Today's Posts Mark Forums Read

Go Back   DeveloperBarn Forums > Databases > Microsoft Access

Sponsored Links

Discuss "Multi Prints with Watermarks" in the Microsoft Access forum.

Microsoft Access - Microsoft Access is a database for small to medium applications. Learn tips and tricks and best database practices here.


Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old July 3rd, 2008, 05:56 AM
AOG123's Avatar
Lightning Master
 
Join Date: Mar 2008
Location: Fortress Of Solitude
Posts: 112
Thanks: 11
Thanked 27 Times in 21 Posts
Rep Power: 1
AOG123 will become famous soon enough

Awards Showcase
Microsoft Access 
Total Awards: 1

Default Multi Prints with Watermarks

Hi,.

Does anyone have any code that i can put behind a shortcut menu bar button to print reports.

The purpose of this code would be to print the report 3 times,

1) Normal print
2) Print with watermark "Stores"
3) Print with watermark "Accounts"

Thanks,

AOG
__________________
If i helped you, make me famous by clicking the

Reply With Quote
Sponsored Links
  #2  
Old July 9th, 2008, 09:21 AM
AOG123's Avatar
Lightning Master
 
Join Date: Mar 2008
Location: Fortress Of Solitude
Posts: 112
Thanks: 11
Thanked 27 Times in 21 Posts
Rep Power: 1
AOG123 will become famous soon enough

Awards Showcase
Microsoft Access 
Total Awards: 1

Default

Hey,.. well i figured it out

The report will be printed from a form command button

I created 2 Unbound Hidden text boxes on the form.

Code:
txtAccounts = Default Value - "Accounts"
TxtStores = Default Value - "Stores"
I then created a Unbound text Box accross the report header,.. = txtWatermark. And set the forecolor to a pale red = -2147483630

And Used the following code behind the Onclick Event of the form command button

Code:
  Dim stDocName As String

    stDocName = " ReportName "

    DoCmd.OpenReport stDocName, acPreview
       DoCmd.PrintOut
          Reports.ReportName.txtWatermark = Forms!switchboard! txtAccounts
            DoCmd.PrintOut
          Reports. ReportName.txtWatermark = Forms!switchboard! txtStores
       DoCmd.PrintOut
    DoCmd.Close
The Result Being,

1st printout = No Watermark
2nd printout = Accounts Watermark
3rd printout = Stores Watermark
Reply With Quote
Reply

  DeveloperBarn Forums > Databases > Microsoft Access

Bookmarks

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Forum Jump


All times are GMT -4. The time now is 01:45 PM.



Content Relevant URLs by vBSEO 3.2.0