Selecting Print Area

[mep1]

Hi,
I am trying to select a print area but am having trouble with the syntax of my variables.

Set startPrintRange = thisStartRange.Offset(-x, 0)
Set endPrintRange = thisStartRange.Offset(0, 11)
Range(startPrintRange, endPrintRange).Select

ActiveSheet.PageSetup.PrintArea = startPrintRange & ":" & endPrintRange
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Thanks,
mep

 

[tbl]

If you want a print area it's much easier to define the print area as a name on the sheet where it occurs, and refer to it as a range.

Richard

 

[VBAjedi]

But, if you have good reason for doing it the way you are, here's some working syntax:

TopLeftCellAddress = thisStartRange.Offset(-x, 0).Address
PrintRange = TopLeftCellAddress & ":" & thisStartRange.Offset(0, 11).Address
ActiveSheet.PageSetup.PrintArea = PrintRange
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Note that thisStartRange must be a valid single-cell range, and that TopLeftCellAddress and PrintRange are string variables.

Hope that gets you what you are after!


VBAjedi