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

 

[DanteAmor]

Try this:

Sub PageSetup()
  Application.Dialogs(xlDialogPageSetup).Show
End Sub

 

[oblix]

Thank you once again Dante.
But I was looking for printer print page

 

[JEC]

Or

 Application.Dialogs(xlDialogPrint).Show

 

[JEC]

And if you want some action after pressing ok(like printing immediatly), you can use this method

Sub prnt()
  With Application.Dialogs(xlDialogPrint)
    If .Show Then .......   
  End With
End Sub

 

[oblix]

Thank you that worked.
If I have cel that shows what page to start printing and cel that shows to what page to print to, can I tell vba to opendialog print and past those values in start and to page or not?
These values can change for everytime I want to print.
If. show Then ........ i was thinking

 

[JEC]

Then I prefer it like this:

Sub prnt()
 With ThisWorkbook.Sheets(1)
    .PrintOut .Cells(1, 1), Cells(1, 2)
 End With
End Sub

 

[DanteAmor]

If I have cel that shows what page to start printing and cel that shows to what page to print to

Try this:

Sub DialogPrint()
  Dim x As Variant
  x = Application.Dialogs(xlDialogPrint).Show(Arg2:=Range("A1"), Arg3:=Range("A2"))
End Sub

 

[oblix]

JEC I dont understand sub prnt example.
It gives me an error in printout line.
doesnt printout start printing directly?
I still want to run :
With Application.Dialogs(xlDialogPrint)
If .Show Then......
But want to print pages from to page to be filled from cells i created (sheet PO, cell to start page - b4, cell to last page to print c4.
b4 = 1 c4 = 6 representing page numbers. this changes because it has formulas.
dont know if this makes it more clear

 

[oblix]

Thank you Dante. Solved my Problem
Thanks also to JEC for effort
Once again gained valuable skills