Results 1 to 4 of 4
  1. #1
    New Lounger
    Join Date
    Jul 2003
    Posts
    5
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Printing Excel Chart (2002)

    Hello,

    I am working with a group of attorneys who would like to print this Excel chart. However, it is so large that it does not fit on one page. Is there any way to get an Excel chart to print split across several pages?

    Linda

  2. #2
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts

    Re: Printing Excel Chart (2002)

    If you select the chart and print preview, it will fit it all onto one page (though the dates are small)

    I do not think it is possible to print a chart across multiple pages directly.

    Is there a reason you need to print it out in 20 pages? If so I think you will have to create 20 separate charts each with a different range of dates or create a macro to print the chart 20 times each time grabbing a different range of dates.

    Could you be more specific of the goal.
    Steve

  3. #3
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts

    Re: Printing Excel Chart (2002)

    Here is some code that I alluded to. It will print the active chart into 20 pages. Change as appropriate.

    Steve

    <pre>Sub PrintChartParts()
    Dim x As Integer
    Dim iMinDate As Date
    Dim iMaxDate As Date
    Dim iPageDates As Integer
    Dim iPages As Integer
    Dim iChartStart As Date
    Dim iChartEnd As Date
    Dim bMaxScale As Boolean
    Dim bMinScale As Boolean
    iPages = 20 'Number of pages to print

    With ActiveChart
    With .Axes(xlValue)
    bMinScale = .MinimumScaleIsAuto
    bMaxScale = .MaximumScaleIsAuto
    .MinimumScale = .MinimumScale
    .MaximumScale = .MaximumScale
    End With
    With .Axes(xlCategory)
    iMinDate = .MinimumScale
    iMaxDate = .MaximumScale
    iPageDates = Int((iMaxDate - iMinDate) / iPages + 2)

    iChartStart = iMinDate

    For x = 1 To iPages
    iChartEnd = iChartStart + iPageDates
    .MinimumScale = iChartStart
    .MaximumScale = iChartEnd
    ActiveChart.PrintOut
    iChartStart = iChartEnd
    Next
    .MinimumScale = iMinDate
    .MaximumScale = iMaxDate
    End With
    With .Axes(xlValue)
    If bMinScale Then .MinimumScaleIsAuto = True
    If bMaxScale Then .MaximumScaleIsAuto = True
    End With
    End With
    End Sub</pre>


  4. #4
    New Lounger
    Join Date
    Jul 2003
    Posts
    5
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Printing Excel Chart (2002)

    Steve,

    Thank you very much for these solutions and I appreciate the code!!

    Linda

Posting Permissions

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