Command Button to print a range when the sheet name continues to change

[mdlanclos]

I have a worksheet with numerous calculations on it, and a final form, on the same sheet, which I want to print. I understand that I will have to create a command button with a print range in the code to print only that part that is the final product. However, I have a problem:

Each sheet will be for an individual patient. When I am performing the calculations, I will change the name (on the tab) from "Sheet1" to the patient name. I will then copy the entire sheet to another sheet (Sheet2), change the name to the appropriate patient, etc.

The problem I run into is that when I write the code for my command button, I have to have the name of the sheet in the code. Is there a way to have the name changed in the code. I hope I made this clear.

Thanks

 

[Scott Huish]

Why do you need to name the sheet? Why not just use ActiveSheet?

Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A1:$C7"
ActiveSheet.PrintOut
End Sub

 

[mdlanclos]

Thank you very much for your help. That worked perfectly.

One additional question; is there a way to have the button (Form Controls) to conditionally appear? In other words, if specific requirements have been met, the button will appear, otherwise, the button will not be available.

Thank you for your help.