vb6 crystal report 列印份數

strDeviceName = Printer.DeviceName
strDriverName =Printer.DriverName
strPort = Printer.Port


FromPage = Val(txtFrom.Text)
ToPage = Val(txtTo.Text)
NoCopies = Val(txtCopies.Text)  '***列印份數

MyReport.SelectPrinter strDriverName, strDeviceName, strPort
MyReport.PrintOut False, NoCopies, , FromPage, ToPage