crystal automatic print in vb

hello :rolleyes:
i m using vb6 and cr9


i need to automatic print a report to a printer

Private Sub Form_Load()
Dim mum As Integer
num = Vendas_clientes.txtID_VENDA.Caption
num = num + 0
Screen.MousePointer = vbHourglass
If Not (Report.ParameterFields.item(1).CurrentValue = num) Then
Report.ParameterFields.item(1).AddCurrentValue (num)

End If

Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
CRViewer91.PrintReport

End Sub


and another thing

how can i based on the printer name (but if need more information is easy aquired)
select a printer for the report to be printed in runtime
i have selected a specifeid printer for each report but i may need to print the report to a network printer and same times a local printer

i easaly get the printer names
Dim pr As Printer
'
'
'
'Private Sub CmdPrinter_Click()
' For Each pr In Printers
' Combo1.AddItem pr.DeviceName
' Next
'End Sub

now i need to send the report for one of the printers


tks for your help

and keep on the good work you have done