Excel : VBA to print pages 1 and 3 2

[dvirgint]

Hello All,

I have an Excel worksheet which scrapes information from another program. Depending on the length of the scraped information I may have to print page 1, 2 and 3. If there isn't enough information, I only print page 1 and 3. I know how to print page 1 to 3, however I can't find out how to print page 1 and 3.

Here is the code I would normally use:

Private Sub CommandButton3_Click()

        If Range("B55:B55") = "" Then
            ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
                :=True
        Else
            ActiveWindow.SelectedSheets.PrintOut From:=1, [aqua][b]and[/b][/aqua]:=3, Copies:=1, Collate _
                :=True
        End If

End Sub

Is it even possible to print selected pages?

Thanks for any help.

 

[SkipVought]

hi,

insert a manual page break between each page from the system from which you are importing data.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[PHV]

What about this ?

Private Sub CommandButton3_Click()
If Range("B55:B55") = "" Then
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
Else
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate:=True
End If
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[dvirgint]

Both of you, thanks for your help!

 

[SkipVought]

BTW, there is a difference between sheets and pages, just in case you were not making a distinction in your mind.

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]