Printing Ranges

  • Thread starter Thread starter mikey may
  • Start date Start date
M

mikey may

I am wanting to print a range from a spreadsheet that will
be different each time a print is req'd.

How do I set my range prior to printing?

I have tried using -

Range("A1", Range("A1").Offset(6, 19).End(xlDown)).Select
Range1 = ActiveCell
PrintArea = Range1
ActiveSheet.SelectedSheets.PrintOut Copies:=1

and variations of above, but cannot seem to nail it down.

Think I have the bones of it in there, but not sure what
else is required.

Many thanks in advance people!!
 
Hello Mikey,

Try

Dim myRange As String
Range("A1", Range("A1").Offset(6, 19).End(xlDown)).Select
myRange = Selection.Address
ActiveSheet.PageSetup.PrintArea = myRange
ActiveSheet.PrintOut Copies:=1

Regards,

Jon-jon
 
Back
Top