print specific sheet and specific pages in worksheet based on cell data

[dwanrizz]

i have this to print specific worksheet using command button but i want to it can be set what pages will be printed base on cell data

Sub printsheet()
Dim ws As Worksheet, wks As Worksheet
Set wks = Worksheets("Main")

Select Case wks.Range("A1").Value
Case 1
Worksheets("My Sheet1").PrintOut
Case 2
Worksheets("My Sheet2").PrintOut
Case 3
Worksheets("my sheet3").PrintOut
End Select

End Sub

https://ibb.co/dJXxsfC - this the excel image sample.

anyone can help, thank you very much.

 

[DanteAmor]

Try this

Sub printsheet()
    Dim ws As Worksheet, wks As Worksheet
    Dim pFrom As Long, pTo As Long
    
    Set wks = Worksheets("Main")
    pFrom = wks.Range("B1").Value
    pTo = wks.Range("C1").Value
    
    Select Case wks.Range("A1").Value
        Case 1
            Worksheets("My Sheet1").PrintOut from:=pFrom, To:=pTo
        Case 2
            Worksheets("My Sheet2").PrintOut from:=pFrom, To:=pTo
        Case 3
            Worksheets("my sheet3").PrintOut from:=pFrom, To:=pTo
    End Select
End Sub

 

[dwanrizz]

Try this

Sub printsheet()
    Dim ws As Worksheet, wks As Worksheet
    Dim pFrom As Long, pTo As Long
    
    Set wks = Worksheets("Main")
    pFrom = wks.Range("B1").Value
    pTo = wks.Range("C1").Value
    
    Select Case wks.Range("A1").Value
        Case 1
            Worksheets("My Sheet1").PrintOut from:=pFrom, To:=pTo
        Case 2
            Worksheets("My Sheet2").PrintOut from:=pFrom, To:=pTo
        Case 3
            Worksheets("my sheet3").PrintOut from:=pFrom, To:=pTo
    End Select
End Sub

Dear Mr. Dante thank you very much for your help.
it work's when the cell B1 and C1 is filled, but when i leave it empty or when i going to print one page only its go error any further help about this sir ?

 

[dwanrizz]

Dear Mr. Dante thank you very much for your help.
it work's when the cell B1 and C1 is filled, but when i leave it empty or when i going to print one page only its go error any further help about this sir ?

i mean leave it empty to print whole pages, is it possible ?

 

[DanteAmor]

Try this

Sub printsheet()
    Dim wks As Worksheet
    Dim sName As String
    Dim pFrom As Long, pTo As Long
    
    Set wks = Worksheets("Main")
    pFrom = Val(wks.Range("B1").Value)
    pTo = Val(wks.Range("C1").Value)
    
    Select Case wks.Range("A1").Value
        Case 1: sName = "My Sheet1"
        Case 2: sName = "My Sheet2"
        Case 3: sName = "My Sheet3"
    End Select
    If pFrom = 0 Or pTo = 0 Or pFrom > pTo Then
        Worksheets(sName).PrintOut
    Else
        Worksheets(sName).PrintOut from:=pFrom, To:=pTo
    End If
End Sub

 

[dwanrizz]

Try this

Sub printsheet()
    Dim wks As Worksheet
    Dim sName As String
    Dim pFrom As Long, pTo As Long
    
    Set wks = Worksheets("Main")
    pFrom = Val(wks.Range("B1").Value)
    pTo = Val(wks.Range("C1").Value)
    
    Select Case wks.Range("A1").Value
        Case 1: sName = "My Sheet1"
        Case 2: sName = "My Sheet2"
        Case 3: sName = "My Sheet3"
    End Select
    If pFrom = 0 Or pTo = 0 Or pFrom > pTo Then
        Worksheets(sName).PrintOut
    Else
        Worksheets(sName).PrintOut from:=pFrom, To:=pTo
    End If
End Sub

WOW thank you very much mr dante

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.