财务分析 财财务分析务分析

      AbortCaption    =   "Printing..."
      AbortTextButton =   "Cancel"
      AbortTextDevice =   "on the %s on %s"
      AbortTextPage   =   "Now printing Page %d of"
      FileName        =   ""
      MarginLeft      =   1440
      MarginTop       =   1440
      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        =   5
      MouseZoom       =   0
      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":2244
         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
      HelpContextID   =   1104
      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":2D02
      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
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