How can I get Excel to NOT collate when printing. Unchecking col.

[Guest]

I print 2 copies of a form and prefer to have the copy directly behind the
original. I uncheck the collate button and it shows "11, 22, 33" but it
still prints in collate form. I did not have this problem when I used
MSWorks. I have tried checking print pages instead of all pages and it still
collates. I can tell it to print one page at a time and it works but more
than one page will be collated.

 

[Dave Peterson]

Can you use a macro that just prints page 1 multiple times, then page 2, and so
on.

If your printer spits out header pages, you may not want to use this (10 pages x
20 copies means 200 headers!).

Option Explicit
Sub testme()

Dim TotalPages As Long
Dim pCtr As Long
Dim HowManyCopies As Long

HowManyCopies = Application.InputBox(Prompt:="How Many Copies", Type:=1)

If HowManyCopies < 1 Then
Exit Sub
End If

TotalPages = ExecuteExcel4Macro("GET.DOCUMENT(50)")

For pCtr = 1 To TotalPages
ActiveSheet.PrintOut _
Preview:=True, _
From:=pCtr, To:=pCtr, Copies:=HowManyCopies
Next pCtr

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm