VBA to print pages.

[asyamonique]

Good Day,
Is it possible to print selected ranges on the worksheet base on cell amount?
If K1 value is 5, when click the button automatically will print 5 pages.
Thanks.

 

[John_w]

Maybe:

Public Sub Print_K1_Pages()

    With ActiveSheet
        .PrintOut From:=1, To:=.Range("K1").Value
    End With

End Sub

 

[asyamonique]

Hello John,
In regards the code you've been provided , I have two questions..
1) If print button on another worksheet what will be adding to run the code?
2) If K1 value is 4 printing pages coming out tot of 8 psc. (1with print anotherone is blank)

Many Thanks

 

[John_w]

1) If print button on another worksheet what will be adding to run the code?

Public Sub Print_K1_Pages()

    With ThisWorkbook.Worksheets("Name of sheet to print")
        .PrintOut From:=1, To:=.Range("K1").Value
    End With

End Sub

2) If K1 value is 4 printing pages coming out tot of 8 psc. (1with print anotherone is blank)

Check the sheet's Margins and Print Area in Print Setup.

 

[asyamonique]

Thanks John.