test.frm

此为vb6做的报表打印控件源码

VERSION 5.00
Object = "{A803CB78-8B54-11D2-A76D-0000E8D03F44}#2.4#0"; "dyControl.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4365
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8490
   LinkTopic       =   "Form1"
   ScaleHeight     =   4365
   ScaleWidth      =   8490
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command6 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Command6"
      Height          =   405
      Left            =   570
      TabIndex        =   6
      Top             =   3960
      Width           =   795
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Command5"
      Height          =   435
      Left            =   5670
      TabIndex        =   5
      Top             =   1620
      Width           =   1425
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Command4"
      Height          =   405
      Left            =   5610
      TabIndex        =   4
      Top             =   2400
      Width           =   1425
   End
   Begin dyM1Grid.dyM1Report dyM1Report1 
      Height          =   3615
      Left            =   360
      TabIndex        =   3
      Top             =   180
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   6376
      ReportStyle     =   4
      SubTitles       =   "dsfj|sdfahf"
      OutlineBar      =   1
      OutlineCol      =   1
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   375
      Left            =   5160
      TabIndex        =   2
      Top             =   3720
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   360
      Left            =   3600
      TabIndex        =   1
      Top             =   3720
      Width           =   1050
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   360
      Left            =   1800
      TabIndex        =   0
      Top             =   3720
      Width           =   990
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim i As Long
    Dim j As Long
    
    With dyM1Report1
        .Rows = 20
        .Cols = 10
        For i = 1 To 19
        For j = 1 To 9
        .TextMatrix(i, j) = "dsfak"
        Next
        Next
        
        
    End With
End Sub

Private Sub Command2_Click()
    dyM1Report1.subPrintPreview True
    'dyM1Report1.subPrint
End Sub

Private Sub Command3_Click()
    With dyM1Report1
        .SubTitles = "拨入科室：666 门诊药房|领药人 :0493 罗军| 操作地点:665 库房"
    End With
End Sub

Private Sub Command4_Click()
    Static i As Integer
    With dyM1Report1
        i = i + 1
        If i Mod 2 = 0 Then
        .SubTitles = "ppppppp|ppppppppp"
        Else
        .SubTitles = ""
        End If
    End With
End Sub

Private Sub Command5_Click()
    dyM1Report1.subPrint
End Sub

Private Sub Command6_Click()
    Static i As Integer
    i = i + 1
    dyM1Report1.ReportStyle = i
    If i > 5 Then i = 0
End Sub

Private Sub dyM1Report1_AfterEditARow(ChangeRow As Long)
    MsgBox "changerow is " & ChangeRow
End Sub

Private Sub dyM1Report1_ValidateEdit(Row As Long, Col As Long, Cancel As Boolean)
'    MsgBox dyM1Report1.TextMatrix(Row, Col)
'    MsgBox dyM1Report1.EditText
End Sub

Private Sub Form_Load()
    With dyM1Report1
        .ColDataType1(0) = dym1DTDateType
        .bolColEditable(0) = True

        .ColEditMax(0) = "1998/2/2"
        .ColEditMin(0) = "1997/2/2"
        .ColDataType1(1) = dym1DTLong
        .bolColEditable(1) = True

        .ColEditMax(1) = 1222
        .ColEditMin(1) = 0.1212
        .ColDataType1(2) = dym1DTDouble
        .bolColEditable(2) = True
        '.ColEditMask(1) = "####.##"
        .ColEditMax(2) = 9222
        .ColEditMin(2) = 0.1212

    End With
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
     MsgBox "Are u sure ?", vbOKCancel
End Sub