paint.frm

这个就不用多说了

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.MDIForm paint 
   BackColor       =   &H80000003&
   Caption         =   "国有资产管理软件"
   ClientHeight    =   6585
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9450
   Icon            =   "paint.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   1080
      Top             =   5160
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   30
      ImageHeight     =   30
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   3
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "paint.frx":000C
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "paint.frx":054E
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "paint.frx":0A90
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9450
      _ExtentX        =   16669
      _ExtentY        =   1111
      ButtonWidth     =   979
      ButtonHeight    =   953
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   3
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   2
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            ImageIndex      =   1
            Style           =   5
            BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
               NumButtonMenus  =   4
               BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Text            =   "100"
               EndProperty
               BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Text            =   "75"
               EndProperty
               BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Text            =   "50"
               EndProperty
               BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628} 
                  Text            =   "25"
               EndProperty
            EndProperty
         EndProperty
      EndProperty
      OLEDropMode     =   1
      Begin VB.CommandButton Command1 
         Caption         =   "上一页"
         Height          =   375
         Left            =   4440
         TabIndex        =   2
         Top             =   120
         Width           =   855
      End
      Begin VB.CommandButton Command2 
         Caption         =   "下一页"
         Height          =   375
         Left            =   5760
         TabIndex        =   1
         Top             =   120
         Width           =   855
      End
   End
End
Attribute VB_Name = "paint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

If P_page >= 1 Then
P_page = P_page - 1
If P_N = "Bb1" Then
Call paper.printing(Bb1.MSHFlexGrid1)
End If
If P_N = "Bb2" Then
Call paper.printing(Bb2.Grid)
End If
End If
End Sub

Private Sub Command2_Click()
If P_page < paper.Total - 1 Then
   P_page = P_page + 1
   If P_N = "Bb1" Then
     Call paper.printing(Bb1.MSHFlexGrid1)
   End If
  If P_N = "Bb2" Then
    Call paper.printing(Bb2.Grid)
  End If
End If
End Sub

Private Sub MDIForm_Load()
P_Bl = 1
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If P_N = "Bb1" Then
Bb1.Show
End If
If P_N = "Bb2" Then
Bb2.Show
End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
Call Toolbar1_ButtonMenuClick(Me.Toolbar1.Buttons(3).ButtonMenus(1))
P_page = 0
While P_page < paper.Total

If P_N = "Bb1" Then
Call paper.printing(Bb1.MSHFlexGrid1)
Printer.PaintPicture paper.paper.Image, 0, 0, paper.paper.Width, paper.paper.Height, 0, 0, paper.paper.Width, paper.paper.Height, vbSrcCopy
Printer.NewPage
End If
If P_N = "Bb2" Then
Call paper.printing(Bb2.Grid)
Printer.PaintPicture paper.paper.Image, 0, 0, paper.paper.Width, paper.paper.Height, 0, 0, paper.paper.Width, paper.paper.Height, vbSrcCopy
Printer.NewPage
End If
P_page = P_page + 1
Wend
P_page = P_page - 1
End If
If Button.Index = 2 Then
Ymsetup.Show 1
End If
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
P_Bl = ButtonMenu.Text / 100
paper.Width = Printer.Width * ButtonMenu.Text / 100
paper.Height = Printer.Height * ButtonMenu.Text / 100
paper.Refresh
If P_N = "Bb1" Then
Call paper.printing(Bb1.MSHFlexGrid1)
End If
If P_N = "Bb2" Then
Call paper.printing(Bb2.Grid)
End If
'Call paper.print_BT
'If paper.Width <= Me.Width Then
'paper.Left = (Me.Width - paper.Width) / 2
'paper.Top = Me.Height / 20

'End If
End Sub
Sub printBt()

End Sub