Printing labels

[Aerowolf]

I am trying to print labels to a network label printer.
I'm using the printout command as follows:

DoCmd.OpenReport "VanDykeProductLabel"
DoCmd.PrintOut , , , , [Forms]![frmVanDykeLabels]![QTYLABELS], False

The label report specifies the network printer.
[QTYLABELS] is the qty specified by the user.
When I run this, I get only one label at the network printer, and then [QTYLABELS] at my laser printer attached to my computer, but the laser printer copies are not the label, they are the window showing on the screen...the label report was closed.

How do I get these to all print at the network printer? The reason I am using the printout method is because I can specify a quantity AND have it coallate them which is much faster than printing one label at a time by repeating a macro.

Thanks

Edwin

 

[Remou]

I think you would be better off with a number table (having numbers from 1 to maximum number of labels) that you can add to the query for labels.

SELECT FullName,Address FROM tblLabels, tblNumbers WHERE tblNumbers.Number < [Forms]![frmVanDykeLabels]![QTYLABELS]

 

[Aerowolf]

I didn't understand the number table thing, but I did solve my problem after finding an article in the Microsof Knowledge Base

Here's my code:

DoCmd.OpenReport "VanDykeProductLabel", acViewPreview
DoCmd.PrintOut , , , , [Forms]![frmVanDykeLabels]![QTYLABELS], False
DoCmd.Close acReport, "VanDykeProductLabel"

All I had to do was add the 'acViewPreviw' to the end of the OpenReport command and that solved everything.

Thanks for the input.

Edwin