Error Checking in Excel
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: Global Print settings

  1. #1
    Board Regular
    Join Date
    Apr 2002
    Posts
    765
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    I Have a Workbook with 31 sheets (one for each day of the month)

    I want to set each sheet to print the same print range and have it print to 1 pages wide x 2 pages tall having the same page break position on each sheet.

    Is there a way of achieving this globally or do I have top set each sheet individualy.

  2. #2
    Board Regular
    Join Date
    Mar 2002
    Location
    Cincinnati, Ohio, USA
    Posts
    6,824
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Sub SetPrint()
    Dim s
    For Each s In Worksheets
    s.PageSetup.PrintArea = "$A$1:$I$100"
    Next
    End Sub

    Edit the print area..."$A$1:$I$100" to suit.
    If you will need to set headers, footers, margins, ect...
    Post the settings for one sheet and wqe can incorporate them into this code.

    Tom

  3. #3
    Board Regular
    Join Date
    Apr 2002
    Posts
    765
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    attn: TS Tom
    I've inserted the code into the Workbook area but it seems to make no difference. Am I putting it in the right place ?
    The required print settings are
    Print rang =A1 - I128
    Page Break at row 64
    Headers = A1 - I2

    [ This Message was edited by: Peter100 on 2002-04-24 05:36 ]

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •