打印预览.frm

新世纪ERP系统管理源代码

      MarginRight     =   1440
      MarginBottom    =   1440
      MarginHeader    =   0
      MarginFooter    =   0
      IndentLeft      =   0
      IndentRight     =   0
      IndentFirst     =   0
      IndentTab       =   720
      SpaceBefore     =   0
      SpaceAfter      =   0
      LineSpacing     =   100
      Columns         =   1
      ColumnSpacing   =   180
      ShowGuides      =   2
      LargeChangeHorz =   300
      LargeChangeVert =   300
      SmallChangeHorz =   500
      SmallChangeVert =   500
      Track           =   0   'False
      ProportionalBars=   -1  'True
      Zoom            =   36.096256684492
      ZoomMode        =   3
      ZoomMax         =   400
      ZoomMin         =   10
      ZoomStep        =   40
      MouseZoom       =   1
      MouseScroll     =   -1  'True
      MousePage       =   -1  'True
      EmptyColor      =   -2147483636
      TextColor       =   0
      HdrColor        =   0
      BrushColor      =   0
      BrushStyle      =   0
      PenColor        =   0
      PenStyle        =   0
      PenWidth        =   0
      PageBorder      =   0
      Header          =   ""
      Footer          =   ""
      TableSep        =   "|;"
      TableBorder     =   7
      TablePen        =   0
      TablePenLR      =   0
      TablePenTB      =   0
      HTMLStyle       =   1
      Begin VB.Image Image1 
         Height          =   1140
         Left            =   0
         Picture         =   "打印预览.frx":1ACC
         Top             =   0
         Visible         =   0   'False
         Width           =   1065
      End
   End
   Begin MSComctlLib.Toolbar YlToolbar 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   10755
      _ExtentX        =   18971
      _ExtentY        =   1111
      ButtonWidth     =   900
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   7
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打 印"
            Key             =   "dy"
            ImageKey        =   "dy"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "上 页"
            Key             =   "sy"
            ImageKey        =   "sy"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "下 页"
            Key             =   "xy"
            ImageKey        =   "xy"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮 助"
            Key             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "返 回"
            Key             =   "fh"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
   End
   Begin vsElasticLightLibCtl.vsElasticLight vsElasticLight1 
      Left            =   3090
      OleObjectBlob   =   "打印预览.frx":258A
      Top             =   150
   End
End
Attribute VB_Name = "DY_Tybbyldy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :报表打印预览
'*    功 能 描 述 :实现对报表按各种比例的模拟显示
'*    程序员姓名  :张建忠
'*    最后修改人  :张建忠
'*    最后修改时间:2001/06/23
'*    备        注:封版
'*******************************************************
Dim Ylzybl As Double, ylms As Integer                 '预 览 整 页 比 例
Dim changelock As Boolean                             '程 序 改 变 值 控 制 锁

Private Sub PageHScroll_Change()                      '利用滚动条改变页号
    With Tydy
        If Not changelock Then
            .PreviewPage = PageHScroll.Value
            If .PreviewPage = 1 Then
                YlToolbar.Buttons("sy").Enabled = False
            Else
                YlToolbar.Buttons("sy").Enabled = True
            End If
            If .PreviewPage < .Pagecount Then
                YlToolbar.Buttons("xy").Enabled = True
            Else
                YlToolbar.Buttons("xy").Enabled = False
            End If
        End If
        Dqyh = Trim(Str(.PreviewPage))
        Gjyh = "(共计:" + Trim(Str(.Pagecount)) + "页)"
    End With
End Sub

Private Sub Tydy_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Tydy
        If .Zoom <> 100 Then
            .Zoom = 100
            Xsbl.Text = "100%"
        Else
            changelock = True
            .ZoomMode = ylms
            Select Case .ZoomMode
            Case zmPageWidth
                Xsbl.Text = "页宽"
            Case zmWholePage
                Xsbl.Text = "整页"
            Case zmThumbnail
                Xsbl.Text = "双页"
            End Select
            changelock = False
        End If
    End With
End Sub

Private Sub Xsbl_Click()                  '调 整 预 览 比 例
    If changelock Then
        Exit Sub
    End If
    With Tydy
        Select Case Xsbl.Text
        Case "页宽"
            .ZoomMode = zmPageWidth
            ylms = .ZoomMode
        Case "整页"
            .ZoomMode = zmWholePage
            ylms = .ZoomMode
        Case "双页"
            .ZoomMode = zmThumbnail
            ylms = .ZoomMode
        Case Else
            .Zoom = Val(Mid(Xsbl.Text, 1, Len(Xsbl.Text) - 1))
        End Select
    End With
End Sub

Private Sub Form_Load()
    
    vsElasticLight1.Enabled = True
    
    With Tydy
        Ylzybl = .Zoom
        .ZoomMax = 400
        .ZoomMin = 25
    End With
    With Xsbl
        .AddItem "页宽"
        .AddItem "整页"
        .AddItem "双页"
        .AddItem "10%"
        .AddItem "25%"
        .AddItem "50%"
        .AddItem "75%"
        .AddItem "100%"
        .AddItem "150%"
        .AddItem "200%"
        .AddItem "400%"
        changelock = True
        .Text = "整页"
        ylms = Tydy.ZoomMode
        changelock = False
    End With
End Sub

Private Sub Qpage()                             '向 前 翻 页
    With Tydy
        If .PreviewPage > 1 Then
            .PreviewPage = .PreviewPage - 1
            If .PreviewPage = 1 Then
                YlToolbar.Buttons("sy").Enabled = False
            End If
            If .PreviewPage < .Pagecount Then
                YlToolbar.Buttons("xy").Enabled = True
            End If
            changelock = True
            PageHScroll.Value = .PreviewPage
            changelock = False
        End If
    End With
End Sub

Private Sub Hpage()                        '向 后 翻 页
    With Tydy
        If .PreviewPage < .Pagecount Then
            .PreviewPage = .PreviewPage + 1
            If .PreviewPage > 1 Then
                YlToolbar.Buttons("sy").Enabled = True
            End If
            If .PreviewPage >= .Pagecount Then
                YlToolbar.Buttons("xy").Enabled = False
            End If
            changelock = True
            PageHScroll.Value = .PreviewPage
            changelock = False
        End If
    End With
    
End Sub

Private Sub YlToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)      '点击工具条
    Select Case Button.Key
    Case "dy"
        Call dyscbb
    Case "sy"
        Call Qpage
    Case "xy"
        Call Hpage
    Case "fh"
        Unload Me
    Case "bz"
        Call F1bz
    End Select
End Sub