frmtest.frm

是个很使用的库存管理系统

VERSION 5.00
Object = "{0329D280-EC0D-11D5-9163-0080C87AAB39}#1.0#0"; "TUBPRINTER.OCX"
Begin VB.Form frmView 
   Caption         =   "预览窗体"
   ClientHeight    =   7935
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9840
   LinkTopic       =   "Form1"
   ScaleHeight     =   7935
   ScaleWidth      =   9840
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin 工程1.tubPrinter tubPrinter1 
      Height          =   2655
      Left            =   600
      TabIndex        =   0
      Top             =   480
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   4683
      BackColor       =   -2147483636
      ForeColor       =   -2147483640
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   0
   End
End
Attribute VB_Name = "frmView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'预览控件尺寸根据窗口调整
Private Sub Form_Resize()
    tubPrinter1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
'点击了预览控件上的关闭，引发该事件，关闭预览窗体
Private Sub tubPrinter1_ClosePreview()
    Unload Me
End Sub
'如果每次调整预览比例好重新生成预览的话，请将AutoRedraw设置为FALSE，然后在下面的事件添入要重画的代码
Private Sub tubPrinter1_NeedRedraw()
    frmData.PrintContent
End Sub
'写入打印叶脚的代码
Private Sub tubPrinter1_PrintFooter(CurrentPage As Long)
    tubPrinter1.FooterOut "tubPrinter打印/预览控件", "页脚测试", "第" & CurrentPage & "页"
End Sub
'写入打印页眉的代码
Private Sub tubPrinter1_PrintHeader(CurrentPage As Long)
    tubPrinter1.HeaderOut "tubPrinter打印/预览控件", "页眉测试", Date
End Sub
'点击了预览窗体或直接调用ShowPrinter后，点击了打印机窗口的确定，引发打印代码，打印到打印机上！
Private Sub tubPrinter1_RealPrint()
    frmData.PrintContent Printer
End Sub