Issue seems with PrinterName, Give the proper network path of PrinterName or Write the following code to get your default printer:
cryRpt.PrintOptions.PrinterName = GetDefaultPrinter()
Private Function GetDefaultPrinter() As String
Dim settings As PrinterSettings = New PrinterSettings()
For Each printer As String In PrinterSettings.InstalledPrinters
settings.PrinterName = printer
If settings.IsDefaultPrinter Then
Return printer
End If
Next
Return String.Empty
End Function