VBA code to go directly to print settings

[oblix]

Hi there
I would like to create an icon on sheet that when you click on it will do the process of going to file tab and clicking on print to display the page where you set the page to page and print from.
can anybody help with vba code. I could on get the print preview to work, but then requires a nother click to go to settings.
thank you in advance

 

[oblix]

Sorry one last question
How do I add the sheet name to this:
Sub DialogPrint()
Dim x As Variant
x = Application.Dialogs(xlDialogPrint).Show(Arg2:=Range("A1"), Arg3:=Range("A2"))
End Sub
or does this not matter?

 

[JEC]

It does, default is your selected sheets

 

[DanteAmor]

How do I add the sheet name to this:

Maybe

Sub DialogPrint()
  Dim x As Variant
  With Sheets("PO")
    x = Application.Dialogs(xlDialogPrint).Show(Arg2:=.Range("B4"), Arg3:=.Range("C4"))
  End With
End Sub

 

[oblix]

Thank you
This works great

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[oblix]

Thankyou for help
this solution works
But it does not change the print ranfe from all to pages
can it be done?

 

[DanteAmor]

Try this:

Sub DialogPrint()
  Dim x As Variant
  With Sheets("PO")
    x = Application.Dialogs(xlDialogPrint).Show(arg1:=2, Arg2:=.Range("B4"), Arg3:=.Range("C4"))
  End With
End Sub

 

[oblix]

Thank you Dante it works, it gives me pages from and to correctly, but the radio button still stays all and one must still select page(s) although page numbers apear correctly