mdb 파일 크리스탈리포트(CrystalReport)로 인쇄하기

2007.11.21 15:25 개발언어/VB

MDB파일을 연결하여 CrystalReport (크리스탈리포트)로 인쇄하는 방법
[CODE]
            Dim rs_tmp As Recordset
            Dim e As Currency
           
            prt.Execute "Delete from tprint"
            Set rs_tmp = prt.OpenRecordset("tprint", dbOpenDynaset)
            For e = 1 To ss1.MaxRows
                ss1.Row = e
               
                rs_tmp.AddNew
                ss1.Col = 1: rs_tmp!C000 = ss1.Text    ' 해당 Spread를 지정하여 인쇄
                ss1.Col = 2: rs_tmp!C001 = ss1.Text
                ss1.Col = 3: rs_tmp!C002 = ss1.Text
                ss1.Col = 4: rs_tmp!C003 = ss1.Text
                ss1.Col = 5: rs_tmp!C004 = ss1.Text

                rs_tmp.Update
               
            Next
           
            rs_tmp.Close
           
            Call PrtConnect   ' mdb 접속
            MDIMain.CrystalReport1.DataFiles(0) = PRTpath   ' mdb경로
            MDIMain.CrystalReport1.WindowState = crptMaximized   ' 윈도우 상태
            MDIMain.CrystalReport1.ReportFileName = RPTpath & "test.rpt"   ' 크리스탈리포트 파일위치
            MDIMain.CrystalReport1.Action = 1    ' 액션
            'MDIMain.CrystalReport1.Destination = crptToWindow ' 미리보기  
            '                                                   = crptToPrinter ' 바로인쇄  
            MDIMain.CrystalReport1.DataFiles(0) = ""
[/CODE]

신고