Tự động in Crystal Report mà ko cần hiển thị form view Report đó

[emxinh27]

Hiện tại mình đang làm 1 chức năng khi click vào 1 button thì nó sẽ tự động in ra báo cáo đó ở máy in luôn, mà ko cần hiển thị form view report đó. Dữ liệu của report này được truy xuất trong CSDL và có 1 vài tham số truyền vào khác nữa. Mình đã thử 1 số code trên google nhưng ko thành công, Mong các bạn nào có kinh nghiệm chỉ giúp

[cchangkhongayngo]

Hiện tại mình đang làm 1 chức năng khi click vào 1 button thì nó sẽ tự động in ra báo cáo đó ở máy in luôn, mà ko cần hiển thị form view report đó. Dữ liệu của report này được truy xuất trong CSDL và có 1 vài tham số truyền vào khác nữa. Mình đã thử 1 số code trên google nhưng ko thành công, Mong các bạn nào có kinh nghiệm chỉ giúp

Cái này mình thấy mấy phần mềm quản lý thương mại có cái này!!???

Mình cũng chưa tìm ra dc hướng gải quyết!!!!

Ai có cao kiến gì ko???

[nobita8x]

thử xem
Click Here

[cchangkhongayngo]

thử xem
Click Here

Cái này dùng combonent chứ đâu phải in thẳng ra luôn đâu pa?????

[cham3cham]

bình thường là .ShowPreview(); thì bạn thay bằng .Print(); là ok.

[cchangkhongayngo]

bình thường là .ShowPreview(); thì bạn thay bằng .Print(); là ok.

Câu hỏi hơi ngớ ngẩn:
Làm sao mà có như bên dưới vậy pác cham3cham????

Tool For C#
1. Visual Studio 2010 Ultimate: http://www.mediafire.com/?r6nd6ua36dg3g
2. SQL 2008 R2 (mới nhất): http://www.mediafire.com/?jgve3t94lgzcl
3. Video C# (sưu tầm): http://www.mediafire.com/?un5o81ere1eqw pass: NguyenNgocPhu
4. YM: copy_gamepc Mail: copy_gamepc@yahoo.com.vn

[manhhung1109]

Cái đấy là chữ ký của người ta mà ông.Vào cài đặt cá nhân ý

[cham3cham]

Vào chữ kí để chỉnh bác ơi!

[cchangkhongayngo]

Ôi xời! Thế ah!!

Tưởng đâu....Thanks

[emxinh27]

bình thường là .ShowPreview(); thì bạn thay bằng .Print(); là ok.

Tớ đã thử nhiểu cách rồi nhưng bị lỗi, ko biết xử lý lỗi này ra sao
Code:

Private Sub Auto_Print()
        Dim rpt As New rptpos
        Dim path As String = "E:\Com_RS232_SQL\Report\rptHoaDon.rpt"
        rpt.Load(path)            'your report file and path
        rpt.SetParameterValue("hoten", Me.txtHoten.Text) 'Lỗi dòng này
        rpt.SetParameterValue("masv", Me.txtMaSV.Text)
        rpt.SetParameterValue("noidung", Me.txtnoidung.Text)
        rpt.SetParameterValue("sotien", Me.txtSotien.Text)
        'if you normally setlogon and paramaters and stuff do that here
        rpt.PrintOptions.PrinterName = "\\10.1.91.245\HP LaserJet P2015 Series PCL 5e"        'your windows printer name
        rpt.PrintToPrinter(1, False, 0, 0)
    End Sub

Sorry vì cái này tớ viết = vbnet, thông báo lỗi là: Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
Bạn nào có kinh nghiệm chỉ bảo giúp