Print from Command Button Range

[Guest]

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]

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

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

 

[Guest]

add
Worksheets("Summary").PrintArea = "$A$1:$A$43"

 

[Guest]

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

 

[Guest]

you need to select something after you inserted the picture
try
cells(1,1).select

 

[Dave Peterson]

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?

 

[Guest]

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.

 

[Dave Peterson]

I don't have another guess.

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.

 

[Guest]

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").PrintOut _
Copies:=1, Collate:=True, preview:=True
End Sub