Problem with Settings of printer copies and printer name in CR and VB

[Guest_imported]

This is the source code I'm using to print a CR 8 report from VB

With CrystalReport1 ( object CrystalReport )
.ReportFileName = "C:\Report1.rpt"
.SQLQuery = sql ' sql is a string with the query
.PrinterCopies = 5
.PrinterName = ' name of the printer
.WindowControls = True
.WindowState = crptMaximized
.Destination = crptToWindow
.PrintReport
End With

But with this code the settings of printer copies and printer name are not accepted by the application and it uses the default values for printer copies (1) and printer name ( default printer )

Do anyone of you know the solution ?

Thank you in advance