Here is the problem I am encountering.  

Whenever I try to print multiple copies of the report from the vb app,
the
copies multiply themselves. (ie. If I ask for 2 copies I will get 4,
If I
ask for 3 copies I will get 9)  I tried printing to different printers
and
from different machines and the same thing happens.  This is happening
at a client site, so I don't have Crystal Reports installed to try
printing directly from Crystal Reports.  Any have any clues on this
one??

Here is the code I am using to print for report:

            sSelect = "{qheader.quotenum} = " + quoteNum
            CRQuote.SelectionFormula = sSelect

            CRQuote.ReportFileName = App.Path + "\quote.rpt"

            numCopies = 1

            Screen.MousePointer = HOURGLASS
            retval = PrintDialog(CDPrint, numCopies)
            Screen.MousePointer = HOURGLASS
            CRQuote.CopiesToPrinter = numCopies
            CRQuote.Destination = 1

            CRQuote.Action = 1

Let me know if you need more information.

Thanks much,
Rhonda

It looks like you're telling the printer to print '3' copies then telling
Crystal to do the same, hence you get the square of however many copies you
actually want.  Tell the printer to print 1 copy and Crystal to print the
number of copies you actually want:

retval = PrintDialog(CDPrint, 1)
...
CRQuote.CopiesToPrinter = numCopies

Hope this helps,

NEIL.