automatically print a cover page before printing other sheets

**Robson524** · 05-07-2024, 04:44 AM

I'm looking for a way to automatically print a cover page before printing other sheets in Excel.

(the Cover page in question will contain all the info for the rest of the workbook via e.g. '=sheet!A1' and floating illustrations.)

Currently, I have a dedicated cover page tab in my workbook that I want to print first every time I click 'Print.'
However, I haven't been able to find a built-in option within Excel to accomplish this.
I've explored using VBA scripts, but they require manual execution each time, which isn't ideal.
Because multiple user with very limited excel experience will be using this file.

Does anyone have any suggestions, alternative approaches, or insights on how to achieve this seamlessly and automatically?

**ByteMarks** · 05-07-2024, 07:53 AM

Maybe you can use the BeforePrint event to intercept the print action and print the cover beforehand.

In ThisWorkbook:

Dim blnPrinting As Boolean

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If blnPrinting = False Then
    Cancel = True
    With ActiveSheet.PageSetup
        If .PrintArea = "" Then
            MsgBox "No print area set."
        Else
            Call PrintWithCover(.PrintArea)
        End If
    End With
End If
End Sub

Sub PrintWithCover(sToPrint$)
blnPrinting = True
Sheets("Cover").Range("A1:D100").PrintOut 'Change accordingly
ActiveSheet.Range(sToPrint).PrintOut
blnPrinting = False
End Sub

automatically print a cover page before printing other sheets

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

automatically print a cover page before printing other sheets

Re: automatically print a cover page before printing other sheets

Thread Information

Users Browsing this Thread

Similar Threads

Print blank page between page 1 and 2 on macro printing

Automatically Printing rows 1-5, then 6-10 etc. per page

print page totals in every page automatically

Hide Column & Print page Macro printing blank page?!

Printing Issue - Fit to Print 1 Page Wide

How can I print repeating rows on every page when printing?

Excel Printing Problem - can't select Print area or Print Titles on Page Set

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions