Thread: 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

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