DeveloperBarn Forums

DeveloperBarn

Programming & IT forum

Multi Prints with Watermarks

This is a discussion on Multi Prints with Watermarks within the Microsoft Access forums, part of the Databases category; Hi,. Does anyone have any code that i can put behind a shortcut menu bar button to print reports. The ...

Go Back   DeveloperBarn Forums > Databases > Microsoft Access

  #1  
Old July 3rd, 2008, 05:56 AM
AOG123's Avatar
Lightning Master
 
Join Date: Mar 2008
Location: Fortress Of Solitude
Posts: 218
Rep Power: 5
AOG123 is a jewel in the roughAOG123 is a jewel in the roughAOG123 is a jewel in the roughAOG123 is a jewel in the rough
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

Status: Currently Unemployed - Looking for Work, Can be contacted on thethresher@hotmail.co.uk
Reply With Quote
  #2  
Old July 9th, 2008, 09:21 AM
AOG123's Avatar
Lightning Master
 
Join Date: Mar 2008
Location: Fortress Of Solitude
Posts: 218
Rep Power: 5
AOG123 is a jewel in the roughAOG123 is a jewel in the roughAOG123 is a jewel in the roughAOG123 is a jewel in the rough
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



All times are GMT -4. The time now is 04:22 PM.


Copyright ©2008-2010, DeveloperBarn

Content Relevant URLs by vBSEO 3.3.2