Print out macro

[Max30]

I have a command button in sheet two which I want to use to print out sheet one.
I got this code but it needs to be completed a little...

Application.Dialogs(xlDialogPrint).Show

What is the solution?

[Leith Ross]

Hello Max30,

To print out the active sheet use this code...

Please Login or Register  to view this content.

To print a specific worksheet then specify the worksheet by name...

Please Login or Register  to view this content.

The Worksheet PrintOut function has this syntax. All argument s are optional.
PrintOut([From], [To], [Copies], [Preview], [ActivePrinter], [PrintToFile], [Collate], [PrToFileName])

[Max30]

It doesn't work at all, I just get the Error 9 message (subscript out of range).

I used this code:

Private Sub CommandButton_Click()

Worksheets("Sheet1").PrintOut

End Sub

My intention is to:
1) Click the command button in sheet 2 (print dialogue window opens)
2) Select printer and number of copies manually
3) Print out sheet 1

I used this before but it printed out the wrong sheet:
Application.Dialogs(xlDialogPrint).Show