Report is always sorted

[Rainer2000]

Hi,
I have a report which I need to print out in the following way:
Print one set normal in consecutive order.
Print second set unsorted, which means two pages of page one, two pages of page 2 and so on.
My procedure looks like this:

Dim stDocName As String
stDocName = "Versand"
Set Application.Printer = Application.Printers(3) ' D1A
DoCmd.OpenReport stDocName, acNormal
DoCmd.PrintOut , , , , 1
stDocName = "Versand"
DoCmd.OpenReport stDocName, acNormal
DoCmd.PrintOut , , , , 2, False
DoCmd.Close


But all this does is printing out 3 sorted reports
Also I would like to get rid of The application.Printer statement and always force the default printer. Printer is a HP4050.

Thanks for any assistance.

Rainer

 

[snyperx3]

If your report has sorting and grouping on it then THAT is what it will always use. You can create two reports, one with sorting and grouping, and the other without.

Also, if you want to just use the default printer, all you have to do is remove your application.printer line.

-Pete

 

[Rainer2000]

So what you say is, it cannot be done if my report has grouping & sorting on it. (it is the same report just being printed in a different way.).

Thanks anyway!

Rainer