Would like to add a button to print certain sheet to fit to one page

[ksebring]

I need to know if this is even possible. I have a worksheet that i need printed and to fit to one page. I would like to put a button so the user can click and print.

I have tried the following and it fails:

Sub PrintWorkload()


With Worksheets("Workload").PageSetup
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
Next
.PrintOut Copies:=1
End With


End Sub

 

[igold]

Does this do what you want. You will have to attach it to a button...

Sub PrintWorkload()


    With Worksheets("Workload").PageSetup
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        .PrintOut Copies:=1
    End With


End Sub

 

[ksebring]

I'm getting an error on the line .PrintOut Copies:=1 in the code.

 

[igold]

Sorry about that, try this instead...

Sub PrintWorkload()


    With Worksheets("Workload").PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
        Worksheets("Workload").PrintOut

End Sub