Try this
Worksheets("FCHC-Form").PageSetup.LeftFooter = _
"&""Arial,Regular""&8" & "Examiner: " & Range("U3").Value
Worksheets("FCHC-Form").PageSetup.CenterFooter = _
"&""Arial,Regular""&8" & "Examination Date: " & Range("D6").Value
Worksheets("FCHC-Form").PageSetup.RightFooter = _
"&""Arial,Regular""&8" & "Subject: " & Range("T3").Value
Sheets(Array("FCHC-Form", "FCHC-Cover")).Select
ActiveWindow.SelectedSheets.PrintPreview
On Jun 6, 12:24 am, FMJ <fischermatth...@gmail.com> wrote:
> I am, admittedly, a newbie.
>
> I've done some research on my problem, however, and found solutions
> for each part... but seemingly not a way to tie them together.
>
> I have an Excel spreadsheet with three worksheets -- Dashboard, Cover
> and Form. I want to put a command button on the Dashboard that will
> (a) insert values from some cells on Form into the footer on Form,
> then (b) select Cover and Form, and (c) open the Print dialog with
> "Active Sheet(s)" defaulted to "true."
>
> I have each piece -- header/footer insertion; printing multiple
> worksheets -- cracked by itself, but can't figure out how to combine
> them.
>
> Code I'm using for the footer insertion is below. I've had it
> functioning as both a BeforePrint event and a standalone macro.
>
> Dim WS As Worksheet
> For Each WS In Worksheets
> Worksheets("FCHC-Form").PageSetup.LeftFooter = _
> "&""Arial,Regular""&8" & "Examiner: " & Range("U3").Value
>
> Worksheets("FCHC-Form").PageSetup.CenterFooter = _
> "&""Arial,Regular""&8" & "Examination Date: " & Range("D6").Value
>
> Worksheets("FCHC-Form").PageSetup.RightFooter = _
> "&""Arial,Regular""&8" & "Subject: " & Range("T3").Value
> Next WS
>
> ... And this works for selecting the worksheets and then opening Print
> dialog with "Active Selection" highlighted:
>
> ActiveWorkbook.Sheets("FCHC-Cover").Select
> ActiveWorkbook.Sheets("FCHC-Form").Select False
>
> res = Application.Dialogs( _
> xlDialogPrint).Show(, , , , , , , , , , , , 1)
>
> I SO appreciate any help anyone can provide!
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
