Results 1 to 5 of 5
  1. #1
    Star Lounger
    Join Date
    Aug 2001
    Posts
    66
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Printing Really Wide Sheets on Regular Paper (2000)

    Hello there! My huge macro, that i've written with the help of everyone on this board, generates a Student information listing. A row consists of the student's name, ID, GRE scores, and various other columns of information. this obviously spans more than the length of one paper even in landscape mode. Is there a way I can make a macro that detects the page breaks and reproduces the student's Name/ID/ pertinent info right after the page break so the reader knows which row goes with which student no matter how many pages the sheet may span, widthwise?

  2. #2
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Dublin, Ireland, Republic of
    Posts
    2,697
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: Printing Really Wide Sheets on Regular Paper (2000)

    Hi Kevin,

    You can select a column(s) to repeat on the left of each page. You do that in the File, PageSetup Dialog using the Sheet Tab, so that you have no need to use code to do the job.

    See if it meets your requirements.

    Andrew

  3. #3
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Printing Really Wide Sheets on Regular Paper (2000)

    I'm probably missing your point; can you set the necessary Titles up on the sheet to be printed and use:

    With ActiveSheet.PageSetup
    .PrintTitleRows = "RowRangeName" 'or "$1:$3"
    .PrintTitleColumns = "ColumnRangeName" ' or "$A:$C"
    .PrintArea = "BodyRangeName" 'or $C$4:$BB2400"
    End With
    -John ... I float in liquid gardens
    UTC -7ąDS

  4. #4
    Uranium Lounger
    Join Date
    Jan 2001
    Location
    South Carolina, USA
    Posts
    7,295
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Printing Really Wide Sheets on Regular Paper (2000)

    Why not use the "Rows to repeat at top" and "Columns to repeat at left" in the page setup dialog on the Sheet tab. If you need to set this in code, the following will set the top row and left column to repeat on every page of Sheet1.

    <pre> With Worksheets("Sheet1").PageSetup
    .PrintTitleRows = "$1:$1"
    .PrintTitleColumns = "$A:$A"
    End With
    </pre>

    Legare Coleman

  5. #5
    Star Lounger
    Join Date
    Aug 2001
    Posts
    66
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Printing Really Wide Sheets on Regular Paper (2000)

    Thank you guys again. I seriously would spend hours a day trudging through this book that the supervisor gave me.

Posting Permissions

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