ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Is there a limit on the length of a PrintArea? (https://www.excelbanter.com/excel-programming/393417-there-limit-length-printarea.html)

Chuck M

Is there a limit on the length of a PrintArea?
 
Hi,

I have a worksheet that can contain anywhere from 22 to 40 embedded charts.
I am trying to create code that sets non contiguous <sp print ranges so that
each chart will print on it's own page. Each chart is 51R x 22C. When the
length of the print range string I've built exceeds 255 characters I get a RT
1004 error "Unable to set the PrintArea property....". Does anyone know of a
way around this limitation or suggest an alternative way to accomplish the
task?
--
TIA
Chuck M.

Jim Cone

Is there a limit on the length of a PrintArea?
 

A different approach...

Sub PrintCharts()
Dim chtObj As Excel.ChartObject
For Each chtObj In ActiveSheet.ChartObjects
chtObj.Chart.PrintOut
Next
Set chtObj = Nothing
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Chuck M"
wrote in message
Hi,
I have a worksheet that can contain anywhere from 22 to 40 embedded charts.
I am trying to create code that sets non contiguous <sp print ranges so that
each chart will print on it's own page. Each chart is 51R x 22C. When the
length of the print range string I've built exceeds 255 characters I get a RT
1004 error "Unable to set the PrintArea property....". Does anyone know of a
way around this limitation or suggest an alternative way to accomplish the
task?
--
TIA
Chuck M.

Chuck M

Is there a limit on the length of a PrintArea?
 
Hi Jim. I like your approach. Thanks! I'd like to take this one step further
to see if each chart could be a separate page in one main document. The
charts are to be emailed to multiple receipients on a monthly basis. One
large document would be easier to handle. I know I didn't explain this in my
original post. Any thoughts?
--
Thanks.
Chuck M.


"Jim Cone" wrote:


A different approach...

Sub PrintCharts()
Dim chtObj As Excel.ChartObject
For Each chtObj In ActiveSheet.ChartObjects
chtObj.Chart.PrintOut
Next
Set chtObj = Nothing
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Chuck M"
wrote in message
Hi,
I have a worksheet that can contain anywhere from 22 to 40 embedded charts.
I am trying to create code that sets non contiguous <sp print ranges so that
each chart will print on it's own page. Each chart is 51R x 22C. When the
length of the print range string I've built exceeds 255 characters I get a RT
1004 error "Unable to set the PrintArea property....". Does anyone know of a
way around this limitation or suggest an alternative way to accomplish the
task?
--
TIA
Chuck M.



All times are GMT +1. The time now is 05:20 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com