Dave

I selected and named the print range "PrintRange" and changed it in the
formula.
It worked like a charm.

Private Sub CommandButton1_Click()

Worksheets("CutSheet").Range("PrintRange").PrintOu t _
Copies:=1, Collate:=True, preview:=True
End Sub

--
Garyw


"Dave Peterson" wrote:

I don't have another guess.

Garyw wrote:

When I print this range manually it prints fine.
When I use the command button it gives a preview of only
one picture on the page.
--
Garyw

"Dave Peterson" wrote:

Did you put the second picture in A1:A43?

If you test it manually
select a1:a43
file|print|Selection|Print preview
do you see both pictures?

Did you change one of the picture's properties so that it wouldn't print?

Garyw wrote:

Dave

When I press the Command Buttom the print preview only shows one of the
pictures I inserted into to worksheet named "CutSheet". No text etc.

The code is as follows:

Private Sub CommandButton1_Click()

Worksheets("CutSheet").Range("a1:a43").PrintOut _
Copies:=1, Collate:=True, preview:=True
End Sub

--
Garyw

"Dave Peterson" wrote:

Worksheets("Summary").range("a1:a43").PrintOut _
Copies:=1, Collate:=True, preview:=true

(Preview:=true will save a few trees when you're testing.)

Garyw wrote:

I've attached Macro to a Command Button in one worksheet called
"Worksheet"which I need to print a range in another worksheet called
"Summary". I have so far this line:

Worksheets("Summary").PrintOut Copies:=1, Collate:=True

Where do I add the range A1:A43?

Garyw

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson