2) 定义全局型报表对象。

Public gRpt As New Report6

  3) 在你的窗口中需要报表处编写代码：如已经生成了如下校历：


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Trim(Button.Caption)

Case "打印"

gRpt.MainTitle = Label1(10).Caption ‘设置主标题

gRpt.SetGrid = MSGrid1 ‘设置报表对象

gRpt.ShowReport ‘显示报表

If gRpt.PaperSize = 8 Then gRpt.PaperSize = 0 'A3纸

…

End Sub  

  4) 运行程序，按工具栏的“打印”，得到的效果如下：

  用户可在此界面灵活地设置打印的一些属性，如：标题、字体、线型，保存文件，预览报表效果，打印报表， 选择打印列，列求和…。

  打印设置：它主要用于设置打印的一些基本属性。

  选择所设置区选择某一内容（正标题、副标题、表头、表体)。所选内容四周为8个小正方形组成的边框。如下：

  1. 设置字体（包括颜色等）。操作如下：

   在报表设置区选择某一内容（正标题、副标题、表头、表体)。右键弹出快捷菜单

   选择字体。则该选择项的字体变为所选择的字体。

   按工具栏的预览可看到设置的报表效果

  2. 设置对齐方式（包括左、中、右等）。操作如下：

   在报表设置区选择某一内容（正标题、副标题、表头、表体)

   右键弹出快捷菜单

   选择对齐方式之一。则可看到所选择项的位置变化。

   按工具栏的预览可看到设置的报表效果
  3. 设置边框线（包括线重、线型、是否有线等）。操作如下：

   在报表设置区选择某一内容（正标题、副标题、表头、表体)

   右键弹出快捷菜单

   选择边框线之一。

   按工具栏的预览可看到设置的报表效果


  4. 设置单元格线（包括线重、线型、是否有线、水平、垂直线等）。操作如下：

   在报表设置区选择某一内容（表头、表体)。注意：表头不含内部水平线

   右键弹出快捷菜单

   选择单元格线之一。

   按工具栏的预览可看到设置的报表效果

  5. 设置单元格线（包括线重、线型、是否有线、水平、垂直线等）。操作如下：

   在报表设置区选择某一内容（表头、表体)。注意：表头不含内部水平线

   右键弹出快捷菜单

   选择单元格线之一。

   按工具栏的预览可看到设置的报表效果

  6. 插入日期、报表单位、页码。操作如下：

   在报表设置区的空白处单击右键弹出快捷菜单

   选择所插入的内容（位置、内容）。则可看到所插入的内容。

   如是插入单位，则在报表单位（报表人）处输入内容。

 7. 设置标题与正文相距行数据。操作如下：

   在标题与正文相距行处输入行数就可

   系统默认为一行。

  8. 选择打印列。操作如下：

   在打印列的显示表格区内选择某一列标题单击,去掉“√”

   再次单击又打上“√”。如该列打“√”表示打印，没有打“√”则不打印。每次单击时变为相反的状态。

   选择工具栏上的全选选上所有列，选择工具栏上的清除不选所有列。