VBA code to print selected columns with 'Microsoft Print to PDF' printer

[Rafal1978]

Hi,
I tried to search for that exact solution but could not find it.
Can you help me with this issue please? I need a fast solution for it.
I do not want to use Export to PDF becasue PDF generated this way looks bad.

The steps I would like to do by clicking a button are:
1. Select a range of columns
2. Select 'File' -> 'Print'
3. Select the printer from the list 'Microsoft Print to PDF'
4. Select 'Print Selection' in the settings
5. Select the 'Landscape orientation' in the settings
6. Click -> Print

 

[Rafal1978]

The solution is:

Columns("A:P").Select
Application.ActivePrinter = "Microsoft Print to PDF na Ne01:"
ActiveSheet.PageSetup.Orientation = xlLandscape
Selection.PrintOut Copies:=1, Collate:=True