[vbnet]

.....

منقول مع تعديل بسيط ليناسب طلبك

الطباعة إلى الطابعة الإفتراضية مباشرة بدون معاينة

كود :

' الطباعة إلى الطابعة الإفتراضية مباشرة بدون معاينة
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    ' إستخدام التقرير
    Using myreport As New CrystalReport1
        ' تمرير قيمة إلى التقرير
        myreport.SetParameterValue("Amount", TextBox1.Text)

        ' إرسال إلى الطابعة
        myreport.PrintToPrinter(1, True, 0, 0)
    End Using

End Sub

منقول مع تعديل بسيط ليناسب طلبك

الطباعة إلى الطابعة المختارة من نافذة حوار الطباعة مباشرة بدون معاينة

كود :

' الطباعة إلى الطابعة المختارة من نافذة حوار الطباعة مباشرة بدون معاينة
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    ' إستخدام التقرير
    Using myreport As New CrystalReport1
        ' تمرير قيمة إلى التقرير
        myreport.SetParameterValue("Amount", TextBox1.Text)

        ' إستخدام مربع حوار الطباعة
        Using ptr As New PrintDialog
            ptr.UseEXDialog = True ' لابد من هذا السطر ليظهر مربع حوار الطباعة
            If ptr.ShowDialog = Windows.Forms.DialogResult.OK Then
                myreport.PrintOptions.PrinterName = ptr.PrinterSettings.PrinterName

                ' إرسال إلى الطابعة
                myreport.PrintToPrinter(1, True, 0, 0)
            End If
        End Using

    End Using
End Sub

.....