Print Tray 2

I have one crystal report, and i wnat to print to Tray 2.

Now i have thesse code but, i don't get print to Tray 2.

Tray 2 Code:

Dim frm As frmEntrada = New frmEntrada
frm.rd.SetDatabaseLogon("sa", "pwd")
frm.rd.PrintOptions.PaperSize = PaperSize.PaperA5
frm.rd.PrintOptions.PaperSource = PaperSource.lower
frm.crv.PrintReport()

Thanks