Excel - VB code to default to print 1 page

[santa12345]

Hello.
Hopefully this is simple.
I have a file. text.xls... tab name is sheet1, I want to print just one page.
I want it to default to do this everytime. Can I add VB code to do this?
Seems like anything I do on the print screen, is not saved the next time I open it up.
Thank you.

 

[johnnyL]

Have you tried:

Worksheet.PrintOut From:=1, To:=1, Copies:=1

 

[santa12345]

I will try that.
2 questions.
1. If the file has 10 tabs how would i specify the specific tab to apply those changes to.
2. Also - if i had a label tab and within the label tab has a field calculated out..how many pages of labels to print... let's say in label tab cell A1.. it says 5. can i vb code that to say print pages 1-5 on the labels tab..or this that not possible?
Thanks again.

 

[johnnyL]

Sheets("Sheet1").PrintOut From:=1, To:=1, Copies:=1

 

[johnnyL]

Worksheets("Sheet1").PrintOut From:=1, To:=1, Copies:=1

 

[santa12345]

THANK YOU SOO MUCH !

 

[johnnyL]

I will try that.
2 questions.
1. If the file has 10 tabs how would i specify the specific tab to apply those changes to.
2. Also - if i had a label tab and within the label tab has a field calculated out..how many pages of labels to print... let's say in label tab cell A1.. it says 5. can i vb code that to say print pages 1-5 on the labels tab..or this that not possible?
Thanks again.

Maybe try:

Worksheets("label").PrintOut From:=1, To:=Range("A1").Value, Copies:=1

Or...

Sheets("label").PrintOut From:=1, To:=Range("A1").Value, Copies:=1