software

Hello specialists!
How to print 15 embedded charts (without data cells) on two sheets at once?
Best regards,
Dima
elete
You don't want data cells. Does that mean you want each chart printed on its
own page? This cannot be done without a macro. Do you instead want just the
portion of the worksheet with the charts to be printed, but not the portion
of the sheet with the data? Select the range containing the charts, and set
the print area (File menu gt; Print Area gt; Set Print Area. Repeat for the
other worksheet, then select both (click on one, ctrl click on the other),
File gt; Print, choose the Active Sheets option to print both sheets at once.

If you want a whole bunch of charts printed on separate pages, make each
into a chart sheet (Chart menu gt; Location gt; As Chart), then use the
ctrl click trick above to select the ones you want, and print them.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
PeltierTech.com/
_______

quot;Dmitryquot; gt; wrote in message
...
gt; Hello specialists!
gt; How to print 15 embedded charts (without data cells) on two sheets at
gt; once?
gt; Best regards,
gt; Dima
gt; elete
gt;
gt;
Thanks Jon Peltier for your detailed reply!
Yes, I don't want data cells. Yes, I want one or two charts printed on
theirs own page. There is not a portion of the worksheet with the charts to
be printed, the charts are divided, surrounded by their data cells.
What should be the macro code?
Dima
quot;Jon Peltierquot; gt; сообщил/сообщила в новостях
следующее: ...
gt; You don't want data cells. Does that mean you want each chart printed on
its
gt; own page? This cannot be done without a macro. Do you instead want just
the
gt; portion of the worksheet with the charts to be printed, but not the
portion
gt; of the sheet with the data? Select the range containing the charts, and
set
gt; the print area (File menu gt; Print Area gt; Set Print Area. Repeat for the
gt; other worksheet, then select both (click on one, ctrl click on the other),
gt; File gt; Print, choose the Active Sheets option to print both sheets at
once.
gt;
gt; If you want a whole bunch of charts printed on separate pages, make each
gt; into a chart sheet (Chart menu gt; Location gt; As Chart), then use the
gt; ctrl click trick above to select the ones you want, and print them.
gt;
gt; - Jon
gt; -------
gt; Jon Peltier, Microsoft Excel MVP
gt; Peltier Technical Services
gt; Tutorials and Custom Solutions
gt; PeltierTech.com/
gt; _______
gt;
gt; quot;Dmitryquot; gt; wrote in message
gt; ...
gt; gt; Hello specialists!
gt; gt; How to print 15 embedded charts (without data cells) on two sheets at
gt; gt; once?
gt; gt; Best regards,
gt; gt; Dima
gt; gt; elete
gt; gt;
gt; gt;
gt;
gt;
The macro code would look like this:

Dim Wksht As Worksheet
Dim ChtOb As ChartObject
Dim sSheets(1 to 2) As String
Dim iSheet As Long

sSheets(1) = quot;Sheet 1quot;
sSheets(2) = quot;Sheet 2quot;

For iSheet = 1 to 2
Set Wksht = ThisWorkbook.Worksheets(sSheets(iSheet))
For Each ChtOb In Wksht.ChartObjects
ChtOb.Chart.PrintOut
Next
Next- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
PeltierTech.com/
_______quot;Dmitryquot; gt; wrote in message
...
gt; Thanks Jon Peltier for your detailed reply!
gt; Yes, I don't want data cells. Yes, I want one or two charts printed on
gt; theirs own page. There is not a portion of the worksheet with the charts
gt; to
gt; be printed, the charts are divided, surrounded by their data cells.
gt; What should be the macro code?
gt; Dima
gt; quot;Jon Peltierquot; gt; сообщил/сообщила в новостях
gt; следующее: ...
gt;gt; You don't want data cells. Does that mean you want each chart printed on
gt; its
gt;gt; own page? This cannot be done without a macro. Do you instead want just
gt; the
gt;gt; portion of the worksheet with the charts to be printed, but not the
gt; portion
gt;gt; of the sheet with the data? Select the range containing the charts, and
gt; set
gt;gt; the print area (File menu gt; Print Area gt; Set Print Area. Repeat for the
gt;gt; other worksheet, then select both (click on one, ctrl click on the
gt;gt; other),
gt;gt; File gt; Print, choose the Active Sheets option to print both sheets at
gt; once.
gt;gt;
gt;gt; If you want a whole bunch of charts printed on separate pages, make each
gt;gt; into a chart sheet (Chart menu gt; Location gt; As Chart), then use the
gt;gt; ctrl click trick above to select the ones you want, and print them.
gt;gt;
gt;gt; - Jon
gt;gt; -------
gt;gt; Jon Peltier, Microsoft Excel MVP
gt;gt; Peltier Technical Services
gt;gt; Tutorials and Custom Solutions
gt;gt; PeltierTech.com/
gt;gt; _______
gt;gt;
gt;gt; quot;Dmitryquot; gt; wrote in message
gt;gt; ...
gt;gt; gt; Hello specialists!
gt;gt; gt; How to print 15 embedded charts (without data cells) on two sheets at
gt;gt; gt; once?
gt;gt; gt; Best regards,
gt;gt; gt; Dima
gt;gt; gt; elete
gt;gt; gt;
gt;gt; gt;
gt;gt;
gt;gt;
gt;
gt;
Thanks Jon Peltier for the macro code!
quot;Jon Peltierquot; gt; сообщил/сообщила в новостях
следующее: ...
gt; The macro code would look like this:
gt;
gt; Dim Wksht As Worksheet
gt; Dim ChtOb As ChartObject
gt; Dim sSheets(1 to 2) As String
gt; Dim iSheet As Long
gt;
gt; sSheets(1) = quot;Sheet 1quot;
gt; sSheets(2) = quot;Sheet 2quot;
gt;
gt; For iSheet = 1 to 2
gt; Set Wksht = ThisWorkbook.Worksheets(sSheets(iSheet))
gt; For Each ChtOb In Wksht.ChartObjects
gt; ChtOb.Chart.PrintOut
gt; Next
gt; Next
gt;
gt;
gt; - Jon
gt; -------
gt; Jon Peltier, Microsoft Excel MVP
gt; Peltier Technical Services
gt; Tutorials and Custom Solutions
gt; PeltierTech.com/
gt; _______
gt;
gt;
gt; quot;Dmitryquot; gt; wrote in message
gt; ...
gt; gt; Thanks Jon Peltier for your detailed reply!
gt; gt; Yes, I don't want data cells. Yes, I want one or two charts printed on
gt; gt; theirs own page. There is not a portion of the worksheet with the charts
gt; gt; to
gt; gt; be printed, the charts are divided, surrounded by their data cells.
gt; gt; What should be the macro code?
gt; gt; Dima
gt; gt; quot;Jon Peltierquot; gt; сообщил/сообщила в
новостях
gt; gt; следующее: ...
gt; gt;gt; You don't want data cells. Does that mean you want each chart printed
on
gt; gt; its
gt; gt;gt; own page? This cannot be done without a macro. Do you instead want just
gt; gt; the
gt; gt;gt; portion of the worksheet with the charts to be printed, but not the
gt; gt; portion
gt; gt;gt; of the sheet with the data? Select the range containing the charts, and
gt; gt; set
gt; gt;gt; the print area (File menu gt; Print Area gt; Set Print Area. Repeat for the
gt; gt;gt; other worksheet, then select both (click on one, ctrl click on the
gt; gt;gt; other),
gt; gt;gt; File gt; Print, choose the Active Sheets option to print both sheets at
gt; gt; once.
gt; gt;gt;
gt; gt;gt; If you want a whole bunch of charts printed on separate pages, make
each
gt; gt;gt; into a chart sheet (Chart menu gt; Location gt; As Chart), then use the
gt; gt;gt; ctrl click trick above to select the ones you want, and print them.
gt; gt;gt;
gt; gt;gt; - Jon
gt; gt;gt; -------
gt; gt;gt; Jon Peltier, Microsoft Excel MVP
gt; gt;gt; Peltier Technical Services
gt; gt;gt; Tutorials and Custom Solutions
gt; gt;gt; PeltierTech.com/
gt; gt;gt; _______
gt; gt;gt;
gt; gt;gt; quot;Dmitryquot; gt; wrote in message
gt; gt;gt; ...
gt; gt;gt; gt; Hello specialists!
gt; gt;gt; gt; How to print 15 embedded charts (without data cells) on two sheets at
gt; gt;gt; gt; once?
gt; gt;gt; gt; Best regards,
gt; gt;gt; gt; Dima
gt; gt;gt; gt; elete
gt; gt;gt; gt;
gt; gt;gt; gt;
gt; gt;gt;
gt; gt;gt;
gt; gt;
gt; gt;
gt;
gt;