Print button with default page 1 only print

[rapitorres]

Hi just a simple vba button that will help me print with default page 1 only.

i tried this code

ActiveWindow.SelectedSheets.PrintPreview

it just preview the file and i still need to press print and setup the page.

 

[ashakantasharma]

Option Explicit

Sub PrintFirstPage() 'Excel VBA procedure to printout first page.
Dim sh As Worksheet

For Each sh In Sheets
sh.PrintOut 1, 1, 1, , , , True, , False
Next sh

End Sub

 

[ashakantasharma]

If you wanted to print the first two sheets of each page you would change the code to the following.
sh.PrintOut 1, 2, 1, , , , True, , False
Where 2 is the character to change for the number of sheets to print out. Actually you can change the code to start or end from a different number of sheets. The first part after printout is the start number and the second part is the end number so
sh.PrintOut 5, 10, 1, , , , True, , False
means sheets 5-10 will be printed out.
The attached workbook shows how the Excel VBA procedure works on a sample data set.

 

[rapitorres]

hi. thankyou for the response.

im wandering if where to put this code. inside a button? cause i tried it and i got this


Private Sub CommandButton4_Click() << THIS IS HIGHLIGHTED

Sub PrintFirstPage() 'Excel VBA procedure to printout first page.
Dim sh As Worksheet

For Each sh In Sheets
sh.PrintOut 1, 1, 1, , , , True, , False
Next sh

End Sub

 

[rapitorres]

thanks alot and sorry.

i studied the code that you provide for me. thanks its working now