Printing only specific pages.

[omairhe]

Hello Gurus,
How to print all pages in a series 1, 5, 9, 13, 17, 21... til last page.

I want the user to select
a. first page and
b. the series.

If the user selects 1 in option a , then begin printing from 1st page, and if the user selects 5 in the series, then print every 5th page. just like the series above.

The following is a macro that prints odd or even pages.

Sub PrintOddEven()
    Dim TotalPages As Long
    Dim StartPage As Long
    Dim Page As Integer

    TotalPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    StartPage = InputBox("Enter starting page number")

    If StartPage > 0 Then
        For Page = StartPage To TotalPages Step 2
            ActiveSheet.PrintOut From:=Page, To:=Page, _
              Copies:=1, Collate:=True
        Next
    End If
End Sub

 

[MrGes]

Hi, try this

Sub printPages()
    Dim npage As String, n As Integer, pagA, pagB
    nPages = InputBox("Write first page and the series,separated by commas - es. 1,3")
    pagA = Split(nPages, ",")(0) + 0
    pagB = Split(nPages, ",")(1) + 0
    For n = pagA To Worksheets.Count Step pagB
        Worksheets(n).PrintOut
    Next
End Sub

 

[omairhe]

Hi, try this

Sub printPages()
    Dim npage As String, n As Integer, pagA, pagB
    nPages = InputBox("Write first page and the series,separated by commas - es. 1,3")
    pagA = Split(nPages, ",")(0) + 0
    pagB = Split(nPages, ",")(1) + 0
    For n = pagA To Worksheets.Count Step pagB
        Worksheets(n).PrintOut
    Next
End Sub

Hello MrGes,

I am trying to print 5 pages just to see if it works. Your code will print all pages. In Input Box I put values = 1,3