VBA for printing in reverse order

[nahean]

I am trying to print a page range in reverse order. I found a sample code but can not fit in my current worksheet.

Sub ReversePrint()

Dim xPages As Long
xPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For xIndex = xPages To 1 Step -1
Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
Next
End Sub

Suppose I want to print page 14 to 21 but in reverse order. can anyone provide me a working code or adjust the above line.

 

[rollis13]

This could be a solution:

Option Explicit
Sub ReversePrint()
    Dim pagePrint As String
    Dim FirstLast() As String
    Dim xIndex As Long
    pagePrint = InputBox("Enter 'page range' to be printed." & vbLf & vbLf & "Always use format:" & vbLf & "first-first for single page," & vbLf & "first-last for multiple pages.", "Input Box Reverse Print")
    If pagePrint Like "?-?" Then
        FirstLast = Split(pagePrint, "-")
        For xIndex = FirstLast(1) To FirstLast(0) Step -1
            Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
        Next
    Else
        MsgBox "No page number entered! or wrong format!"
    End If
End Sub

 

[nahean]

This could be a solution:

Option Explicit
Sub ReversePrint()
    Dim pagePrint As String
    Dim FirstLast() As String
    Dim xIndex As Long
    pagePrint = InputBox("Enter 'page range' to be printed." & vbLf & vbLf & "Always use format:" & vbLf & "first-first for single page," & vbLf & "first-last for multiple pages.", "Input Box Reverse Print")
    If pagePrint Like "?-?" Then
        FirstLast = Split(pagePrint, "-")
        For xIndex = FirstLast(1) To FirstLast(0) Step -1
            Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
        Next
    Else
        MsgBox "No page number entered! or wrong format!"
    End If
End Sub

Thanx for your quick soultion

can you tell me where should i change?

"Enter 'page range' to be printed." is replace with "14 To 21"

am i right??

 

[rollis13]

Do you mean that you will always print from 14 to 21 without need of asking ? or to you mean you prefer to be asked and write "14 to 21" instead of "14-21" ?
In the first case it could be:

Option Explicit
Sub ReversePrintFixNumber()
    Dim firstPage As Integer
    Dim lastPage As Integer
    Dim xIndex As Long
    firstPage = 14
    lastPage = 21
    For xIndex = lastPage To firstPage Step -1
        Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
    Next
End Sub

while in the second case:

Option Explicit
Sub ReversePrintTo()
    Dim pagePrint As String
    Dim FirstLast() As String
    Dim xIndex As Long
    pagePrint = InputBox("Enter 'page range' to be printed." & vbLf & vbLf & "Always use format:" & vbLf & _
                "'first to first' for single page," & vbLf & "'first to last' for multiple pages.", "Input Box Reverse Print")
    If pagePrint Like "? to ?" Then
        FirstLast = Split(pagePrint, " to ")
        For xIndex = FirstLast(1) To FirstLast(0) Step -1
            Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
        Next
    Else
        MsgBox "No page number entered! or wrong format!"
    End If
End Sub

 

[nahean]

Do you mean that you will always print from 14 to 21 without need of asking ? or to you mean you prefer to be asked and write "14 to 21" instead of "14-21" ?
In the first case it could be:

Option Explicit
Sub ReversePrintFixNumber()
    Dim firstPage As Integer
    Dim lastPage As Integer
    Dim xIndex As Long
    firstPage = 14
    lastPage = 21
    For xIndex = lastPage To firstPage Step -1
        Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
    Next
End Sub

while in the second case:

Option Explicit
Sub ReversePrintTo()
    Dim pagePrint As String
    Dim FirstLast() As String
    Dim xIndex As Long
    pagePrint = InputBox("Enter 'page range' to be printed." & vbLf & vbLf & "Always use format:" & vbLf & _
                "'first to first' for single page," & vbLf & "'first to last' for multiple pages.", "Input Box Reverse Print")
    If pagePrint Like "? to ?" Then
        FirstLast = Split(pagePrint, " to ")
        For xIndex = FirstLast(1) To FirstLast(0) Step -1
            Application.ActiveSheet.PrintOut from:=xIndex, To:=xIndex
        Next
    Else
        MsgBox "No page number entered! or wrong format!"
    End If
End Sub

thanx a lot, i will try both and again thanx for your quick response.