ActiveSheet.PageSetup.PrintArea = variable

[MagnaForce]

Need some help getting an area selected to become a variable. The reason is there are other areas on the sheet I do not want to print and I am going to be using print selected.

    'Need to make this a variable
    With Sheets("CWS")
    .Range("A1:O" & .Range("B" & Rows.Count).End(xlUp).Row).Select
    End With

    'This is where I need the variable to be
    ActiveSheet.PageSetup.PrintArea = "Variable goes here"

 

[DanteAmor]

Try this:

  With Sheets("CWS")
    .PageSetup.PrintArea = .Range("A1:O" & .Range("B" & Rows.Count).End(xlUp).Row).Address
  End With

 

[MagnaForce]

It looks like it is going to work, but I got an error on "Application.PrintCommunication = True".
I had to manually select Adobe PDF as the printer and rerun the code and it works.

Do you know of anyway to have VBA automatically select Adobe PDF as the intended printer?

 

[spencer_time]

You could try one of the following two examples.

Application.Dialogs(xlDialogPrinterSetup).Show

OR

Sub Change_Default_Printer()
Set mynetwork = CreateObject("WScript.network")
mynetwork.setdefaultprinter "Your Printer Name"     'write your printers name here
ActiveSheet.PrintOut
mynetwork.setdefaultprinter “original_Default_Printer”  ‘set back your original printer to default”
End Sub

 

[MagnaForce]

I could only mark one as a solution. although they were both a solution to my problem. I gave you both a thumbs up. Thanks for the quick response, you guys are great.

 

[DanteAmor]

Glad we could help & thanks for the feedback