printset.frm

组合查询 组合查询 组合查询

         Caption         =   "表格内容"
         Height          =   195
         Left            =   1140
         TabIndex        =   37
         Top             =   1620
         Width           =   780
      End
      Begin VB.Label lblPage 
         AutoSize        =   -1  'True
         Caption         =   "页码"
         Height          =   180
         Left            =   1695
         TabIndex        =   8
         Top             =   2715
         Width           =   360
      End
      Begin VB.Label lblgss 
         AutoSize        =   -1  'True
         Caption         =   "工商所"
         Height          =   180
         Left            =   165
         TabIndex        =   7
         Top             =   2670
         Width           =   540
      End
      Begin VB.Label lblcaption 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "列标题"
         Height          =   180
         Left            =   1140
         TabIndex        =   6
         Top             =   1350
         Width           =   780
      End
      Begin VB.Label lblOperator 
         AutoSize        =   -1  'True
         Caption         =   "操作员"
         Height          =   180
         Left            =   1680
         TabIndex        =   5
         Top             =   900
         Width           =   855
      End
      Begin VB.Label lbldate 
         AutoSize        =   -1  'True
         Caption         =   "打印日期"
         Height          =   180
         Left            =   60
         TabIndex        =   4
         Top             =   900
         Width           =   720
      End
      Begin VB.Label lbltitle 
         Alignment       =   2  'Center
         AutoSize        =   -1  'True
         Caption         =   "标题"
         Height          =   180
         Left            =   1125
         TabIndex        =   3
         Top             =   60
         Width           =   375
      End
   End
   Begin VB.Label Label6 
      Caption         =   "说明：预览仅反应字体大小以及页码等的大小位置，与实际情况可能有差别。"
      Height          =   480
      Left            =   5160
      TabIndex        =   1
      Top             =   645
      Width           =   3150
   End
   Begin VB.Label Label5 
      Caption         =   "预览"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   5205
      TabIndex        =   0
      Top             =   255
      Width           =   1395
   End
End
Attribute VB_Name = "frmPrintSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private mPrintset As New Printset
Private msIniFileName As String
Private blnChangeFlag As Integer  '页面变化标志



Private Sub CmbPageSize_Click()
    blnChangeFlag = 1
End Sub

Private Sub cmdCancel_Click()
     Dim i As Integer
   
    Set mPrintset = New Printset
    
    mPrintset.BusinessType = frmQueryResult.msFieldSource
    mPrintset.OperatorID = strczyh
    mPrintset.GetPrintset
    

    For i = 0 To CmbPageSize.ListCount - 1
        If Mid(CmbPageSize.List(i), 1, 2) = mPrintset.PaperSize Then
            CmbPageSize.ListIndex = i
            Exit For
        End If
    Next
    
    'Call MakeSize(mPrintset.PaperSize, lbltitle)
    
    If mPrintset.PrintOrigent = 1 Then
        optPrintDirection(0).Value = True
    Else
        optPrintDirection(1).Value = True
    End If
    

    
    '读取数据库中打印日期的位置，设置为页面Load时打印日期位置的默认值

    Call ReadValue(ComboDyrqwz, mPrintset.PrintDateSize)
    
    '读取打印日期位置到打印预览中显示
    
    Call MakeSize(mPrintset.PrintDateSize, lbldate)
    '读取数据库中页码的位置，设置为页面Load时页码位置的默认值
    
    Call ReadValue(ComboYmwz, mPrintset.PageSize)
    
    '读取页码位置到打印预览中显示
    
    Call MakeSize(mPrintset.PageSize, lblPage)
    '读取数据库中工商所的位置，设置为页面Load时工商所位置的默认值
    
    Call ReadValue(ComboGsswz, mPrintset.GssSize)
    
    '读取工商所位置到打印预览中显示
    
    Call MakeSize(mPrintset.GssSize, lblgss)
    
    '读取数据库中操作员的位置，设置为页面Load时操作员的位置的默认值

    Call ReadValue(ComboCzywz, mPrintset.OperatorSize)
    
    '读取操作员位置到打印预览中显示
    
    Call MakeSize(mPrintset.OperatorSize, lblOperator)
    
    '读取数据库的字体设置并转化成文本形式在页面上显示
    
    lblbbbtzt.Caption = mPrintset.TitleFontName & "," & CheckDataFont(mPrintset.TitleFontBold, mPrintset.TitleFontItalic) & "," & mPrintset.TitleFontSize
    lblbglbtzt.Caption = mPrintset.TitleFontName & "," & CheckDataFont(mPrintset.CaptionFontBold, mPrintset.CaptionFontItalic) & "," & mPrintset.CaptionFontSize
    lblbgnrzt.Caption = mPrintset.TitleFontName & "," & CheckDataFont(mPrintset.TableFontBold, mPrintset.TableFontItalic) & "," & mPrintset.TableFontSize
    
    txtbbbt.Text = mPrintset.TableTitle
    
    '根据页面上的字体文本显示将其显示到打印预览当中去
    
    Call MakeFont(lblbbbtzt.Caption, lbltitle)
    Call MakeFont(lblbglbtzt.Caption, lblcaption)
    Call MakeFont(lblbgnrzt.Caption, lblbgnr)
    
    blnChangeFlag = 0
End Sub

Private Sub CmdBbbtzt_Click()
    
    Dim strFontStyle As String
    On Error GoTo Cancel
    dlgFontSet.Flags = cdlCFBoth
    dlgFontSet.FontBold = True
    dlgFontSet.FontName = "宋体"
    dlgFontSet.ShowFont
    
        
    lblbbbtzt.Caption = dlgFontSet.FontName & "," & CheckDataFont(dlgFontSet.FontBold, dlgFontSet.FontItalic) & "," & dlgFontSet.FontSize
    blnChangeFlag = 1
Cancel:
    
    
End Sub

Private Sub CmdBgnrzt_Click()
    On Error GoTo Cancel
    dlgFontSet.Flags = cdlCFBoth
    dlgFontSet.FontBold = False
    
    dlgFontSet.FontName = "宋体"
    dlgFontSet.ShowFont
    lblbgnrzt.Caption = dlgFontSet.FontName & "," & CheckDataFont(dlgFontSet.FontBold, dlgFontSet.FontItalic) & "," & dlgFontSet.FontSize
    blnChangeFlag = 1
Cancel:

End Sub

Private Sub cmdExit_Click()
    If mPrintset.TableTitle <> txtbbbt.Text Then
        blnChangeFlag = 1
    End If
    
    If blnChangeFlag = 1 Then
        If MsgBox("打印设置尚未保存，确定要退出吗？", vbQuestion + vbYesNo, "打印设置") = vbYes Then
            Unload Me
        Else
            Exit Sub
        End If
    Else
        Unload Me
    End If
    
End Sub

Private Sub CmdLbtzt_Click()
    On Error GoTo Cancel
    dlgFontSet.Flags = cdlCFBoth
    dlgFontSet.FontBold = True
    dlgFontSet.FontName = "宋体"
    dlgFontSet.ShowFont
    lblbglbtzt.Caption = dlgFontSet.FontName & "," & CheckDataFont(dlgFontSet.FontBold, dlgFontSet.FontItalic) & "," & dlgFontSet.FontSize
    blnChangeFlag = 1
Cancel:

End Sub



'**********************************************************
'读取数据库字体样式显示文本字体样式
'param:obj1 as boolean -true:粗体
'     obj2 as boolean -true:斜体
'**********************************************************

Private Function CheckDataFont(obj1 As Boolean, obj2 As Boolean) As String
    If obj1 And Not obj2 Then
        CheckDataFont = "粗体"
        Exit Function
    End If
    If Not obj1 And obj2 Then
        CheckDataFont = "斜体"
        Exit Function
    End If
    If obj1 And obj2 Then
        CheckDataFont = "粗斜体"
        Exit Function
    End If
    If Not obj1 And Not obj2 Then
        CheckDataFont = "常规"
        Exit Function
    End If
End Function
Private Sub cmdSave_Click()


   
    
    If MsgBox("是否要保存打印设置？", vbQuestion + vbYesNo, "打印设置") = vbYes Then
    
        mPrintset.TableTitle = txtbbbt.Text
        '给类的属性赋值，用以存盘
        mPrintset.TitleFontName = SaveMakeFontName(lblbbbtzt)
        mPrintset.TitleFontBold = SaveMakeFontBold(lblbbbtzt)
        mPrintset.TitleFontItalic = SaveMakeFontItalic(lblbbbtzt)
        mPrintset.TitleFontSize = SaveMakeFontSize(lblbbbtzt)
        
        mPrintset.CaptionFontName = SaveMakeFontName(lblbglbtzt)
        mPrintset.CaptionFontBold = SaveMakeFontBold(lblbglbtzt)
        mPrintset.CaptionFontItalic = SaveMakeFontItalic(lblbglbtzt)
        mPrintset.CaptionFontSize = SaveMakeFontSize(lblbglbtzt)
        
        mPrintset.TableFontName = SaveMakeFontName(lblbgnrzt)
        mPrintset.TableFontBold = SaveMakeFontBold(lblbgnrzt)
        mPrintset.TableFontItalic = SaveMakeFontItalic(lblbgnrzt)
        mPrintset.TableFontSize = SaveMakeFontSize(lblbgnrzt)
        
        mPrintset.BusinessType = frmQueryResult.msFieldSource
        mPrintset.OperatorID = strczyh
        mPrintset.PaperSize = Mid(CmbPageSize.Text, 1, 2)
        
        If optPrintDirection(0).Value Then
            mPrintset.PrintOrigent = 1
        Else
            mPrintset.PrintOrigent = 2
        End If
        
        mPrintset.PageSize = Mid(ComboYmwz.Text, 1, 1)
        mPrintset.PrintDateSize = Mid(ComboDyrqwz.Text, 1, 1)
        mPrintset.GssSize = Mid(ComboGsswz.Text, 1, 1)
        mPrintset.OperatorSize = Mid(ComboCzywz.Text, 1, 1)
        
        mPrintset.SavePrintset
            
        blnChangeFlag = 0
        
    Else
        Exit Sub
    End If
    Unload Me
End Sub

Private Sub ComboCzywz_Click()
    '根据操作员位置下拉框中的选项确定其在打印预览中的位置
    Call MakeSize(Mid(ComboCzywz.Text, 1, 1), lblOperator)
    blnChangeFlag = 1
End Sub