frmdata.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmData 
   Caption         =   "数据窗体"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   675
   ClientWidth     =   10935
   LinkTopic       =   "Form1"
   ScaleHeight     =   8310
   ScaleWidth      =   10935
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.ImageList imlIcon 
      Left            =   9840
      Top             =   3720
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":0000
            Key             =   "icon1"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":005E
            Key             =   "icon2"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":00BC
            Key             =   "icon3"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":011A
            Key             =   "icon4"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":0178
            Key             =   "icon5"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList imlSmallIcon 
      Left            =   5880
      Top             =   7200
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":01D6
            Key             =   "icon1"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":0234
            Key             =   "icon2"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":0292
            Key             =   "icon3"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":02F0
            Key             =   "icon4"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmData.frx":034E
            Key             =   "icon5"
         EndProperty
      EndProperty
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   3960
      Top             =   7560
      Width           =   480
   End
   Begin VB.Menu mnuDemo 
      Caption         =   "演示内容"
      Begin VB.Menu mnuPreview 
         Caption         =   "预览"
      End
      Begin VB.Menu mnuPrint 
         Caption         =   "打印"
      End
   End
End
Attribute VB_Name = "frmData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'打印内容代码
Public Sub PrintContent(Optional PrintDevice As Printer)
    If Not PrintDevice Is Nothing Then
        frmView.tubPrinter1.SelectPrintDevice PrintDevice '打印到打印机
    Else
        frmView.tubPrinter1.SelectPrintDevice '缺省是预览
    End If
    With frmView.tubPrinter1
        
        
        '重新开始一页，直接打印报表，注意，如果超过范围它会自动换行，如果你设定了标题，它也自动打哦:)
        .NewPage
        .NewRow
        .TitleOut "直接打印DataGrid的测试，居中对齐"
        .DirectPrint DataGrid1, "测试DATAGRID"
        .EndDoc
    End With
End Sub


Private Sub mnuPreview_Click()
    PrintContent
    frmView.Show
End Sub

Private Sub mnuPrint_Click()
    frmView.tubPrinter1.ShowPrinter 2
End Sub