printing range using range variable

[mikeymay]

I can't see why the follwoing doesn't work

        Set rngStartCell = Range("A14")
        Set rngEndCell = Range("BV57")
        Set rngPrintRange = Range(rngStartCell, rngEndCell)
        With ActiveSheet.PageSetup
            .PrintArea = rngPrintRange
        End With

I had previously tried a different approach

        Set rngPrintRange = Range("A14:BV57")
        With ActiveSheet.PageSetup
            .PrintArea = rngPrintRange
        End With

I am struggling to understand why this doesn't work.....

 

[VoG]

Try

ActiveSheet.PageSetup.PrintArea = "A14:BV57"

 

[mikeymay]

I am curious as to why the range variable didn't work as I have similar code to print a different sheet

        Set rngStartCell = Range("A1")
        Do Until rngStartCell.Offset(intRowCountPrint, 0) = ""
            intRowCountPrint = intRowCountPrint + 1
        Loop
        Set rngPrintRange = Range(rngStartCell, rngStartCell.Offset(intRowCountPrint, 12))
        With ActiveSheet.PageSetup
            .PrintArea = rngPrintRange
        End With

This code works without any issues and all I did was adapt the code that doesn't using the same priciples as above.....

I do have more code within the 'With' line but didn't show on the thread as it wasn't relevant to the issue in hand and I would like to retain using the 'With' and 'End With' if possible

 

[mancubus]

try

    .PrintArea = rngPrintRange.Address

 

[MrKowz]

I am curious as to why the range variable didn't work as I have similar code to print a different sheet

        Set rngStartCell = Range("A1")
        Do Until rngStartCell.Offset(intRowCountPrint, 0) = ""
            intRowCountPrint = intRowCountPrint + 1
        Loop
        Set rngPrintRange = Range(rngStartCell, rngStartCell.Offset(intRowCountPrint, 12))
        With ActiveSheet.PageSetup
            .PrintArea = rngPrintRange
        End With

This code works without any issues and all I did was adapt the code that doesn't using the same priciples as above.....

I do have more code within the 'With' line but didn't show on the thread as it wasn't relevant to the issue in hand and I would like to retain using the 'With' and 'End With' if possible

The PrintArea property can't use a range reference, it needs an A1 style reference. If you use rngPrintRange.Address, that will give it the required A1 style it needs.