printset.frm

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

Private Sub ComboDyrqwz_Click()
   '根据打印日期位置下拉框中的选项确定其在打印预览中的位置
    Call MakeSize(Mid(ComboDyrqwz.Text, 1, 1), lbldate)
        blnChangeFlag = 1
End Sub

Private Sub ComboGsswz_Click()
     '根据工商所位置下拉框中的选项确定其在打印预览中的位置
     Call MakeSize(Mid(ComboGsswz.Text, 1, 1), lblgss)
     blnChangeFlag = 1
End Sub

Private Sub ComboYmwz_Click()
     '根据页码位置下拉框中的选项确定其在打印预览中的位置
     Call MakeSize(Mid(ComboYmwz.Text, 1, 1), lblPage)
     blnChangeFlag = 1
End Sub

Private Sub Form_Load()
    Dim i As Integer

    Set mPrintset = New Printset
    
    mPrintset.BusinessType = frmQueryResult.msFieldSource
    mPrintset.OperatorID = strczyh
    mPrintset.GetPrintset
    
    With CmbPageSize
        .AddItem (PaperA2)
        .AddItem (PaperA3)
        .AddItem (PaperA4)
        .AddItem (PaperA5)
    End With
    'Call ReadValue(CmbPageSize, mPrintSet.PaperSize)
    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
    
    With ComboDyrqwz
        .AddItem ("0-不打印")
        .AddItem ("1-页面左上角")
        .AddItem ("2-页面上中")
        .AddItem ("3-页面右上角")
        .AddItem ("4-页面左下角")
        .AddItem ("5-页面下中")
        .AddItem ("6-页面右下角")
        
    End With
    
    '读取数据库中打印日期的位置，设置为页面Load时打印日期位置的默认值

    Call ReadValue(ComboDyrqwz, mPrintset.PrintDateSize)
    
    '读取打印日期位置到打印预览中显示
    
    Call MakeSize(mPrintset.PrintDateSize, lbldate)
    
    With ComboYmwz
        .AddItem ("0-不打印")
        .AddItem ("1-页面左上角")
        .AddItem ("2-页面上中")
        .AddItem ("3-页面右上角")
        .AddItem ("4-页面左下角")
        .AddItem ("5-页面下中")
        .AddItem ("6-页面右下角")
       
    End With
    '读取数据库中页码的位置，设置为页面Load时页码位置的默认值
    
    Call ReadValue(ComboYmwz, mPrintset.PageSize)
    
    '读取页码位置到打印预览中显示
    
    Call MakeSize(mPrintset.PageSize, lblPage)
    
    With ComboGsswz
        .AddItem ("0-不打印")
        .AddItem ("1-页面左上角")
        .AddItem ("2-页面上中")
        .AddItem ("3-页面右上角")
        .AddItem ("4-页面左下角")
        .AddItem ("5-页面下中")
        .AddItem ("6-页面右下角")
        
    End With
    
    '读取数据库中工商所的位置，设置为页面Load时工商所位置的默认值
    
    Call ReadValue(ComboGsswz, mPrintset.GssSize)
    
    '读取工商所位置到打印预览中显示
    
    Call MakeSize(mPrintset.GssSize, lblgss)
    
    With ComboCzywz
        .AddItem ("0-不打印")
        .AddItem ("1-页面左上角")
        .AddItem ("2-页面上中")
        .AddItem ("3-页面右上角")
        .AddItem ("4-页面左下角")
        .AddItem ("5-页面下中")
        .AddItem ("6-页面右下角")
       
    End With
    
    '读取数据库中操作员的位置，设置为页面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.CaptionFontName & "," & CheckDataFont(mPrintset.CaptionFontBold, mPrintset.CaptionFontItalic) & "," & mPrintset.CaptionFontSize
    lblbgnrzt.Caption = mPrintset.TableFontName & "," & 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

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

Private Function ReadValue(Combo As ComboBox, qivalue As String)

    Dim i As Integer
        For i = 0 To Combo.ListCount - 1
            If Mid(Combo.List(i), 1, 1) = qivalue Then
                Combo.ListIndex = i
                Exit Function
            End If
            
        Next
'    End If
    
End Function

'**********************************************************
'根据页面设置中各个位置选项确定打印预览中的打印选项位置
'**********************************************************

Private Function MakeSize(qivalue As String, lblcaption As Label)
    If qivalue = "0" Then
        lblcaption.Visible = False
    ElseIf qivalue = "1" Then
        lblcaption.Visible = True
        lblcaption.Top = lbltitle.Top + 200
        lblcaption.Left = 100
    ElseIf qivalue = "2" Then
        lblcaption.Visible = True
        lblcaption.Left = (Frame1.Width - lblcaption.Width) / 2
        lblcaption.Top = lbltitle.Top + 200
    ElseIf qivalue = "3" Then
        lblcaption.Visible = True
        lblcaption.Top = lbltitle.Top + 200
        lblcaption.Left = Frame1.Width - lblcaption.Width
    ElseIf qivalue = "4" Then
        lblcaption.Visible = True
        lblcaption.Top = Frame1.Height - lblcaption.Height
        lblcaption.Left = 100
    ElseIf qivalue = "5" Then
        lblcaption.Visible = True
        lblcaption.Left = (Frame1.Width - lblcaption.Width) / 2
        lblcaption.Top = Frame1.Height - lblcaption.Height
    ElseIf qivalue = "6" Then
        lblcaption.Visible = True
        lblcaption.Left = Frame1.Width - lblcaption.Width
        lblcaption.Top = Frame1.Height - lblcaption.Height - 100
    End If
End Function


'**********************************************************
'根据字体设置中的选项确定打印预览中的打印字体样式
'**********************************************************

Private Function MakeFont(lblfont As String, lblcaption As Label)
    Dim lblfont1 As String
    Dim pos As Long
    pos = InStr(lblfont, ",")
    lblfont1 = Left(lblfont, pos - 1)
    lblcaption.Font.name = lblfont1
    pos = InStr(pos + 2, lblfont, ",")
    lblfont1 = Mid(lblfont, InStr(lblfont, ",") + 1, pos - InStr(lblfont, ",") - 1)
    If lblfont1 = "粗体" Then
        lblcaption.Font.Bold = True
        lblcaption.Font.Italic = False
    ElseIf lblfont1 = "斜体" Then
        lblcaption.Font.Italic = True
        lblcaption.Font.Bold = False
    ElseIf lblfont1 = "常规" Then
        lblcaption.Font.Bold = False
        lblcaption.Font.Italic = False
    Else
        lblcaption.Font.Bold = True
        lblcaption.Font.Italic = True
    End If


    lblfont1 = Right(lblfont, Len(lblfont) - pos)
    lblcaption.Font.Size = (lblfont1)




End Function


'**********************************************************
'将字体设置中的文本显示的字体名称设置取出，转换格式以进行存盘
'**********************************************************

Private Function SaveMakeFontName(lblfont As String) As String
    Dim pos As Long
    Dim lblfont1 As String
    pos = InStr(lblfont, ",")
    lblfont1 = Left(lblfont, pos - 1)
    SaveMakeFontName = lblfont1
End Function

'**********************************************************
'将字体设置中的文本显示的字体粗体设置取出，转换格式以进行存盘
'**********************************************************

Private Function SaveMakeFontBold(lblfont As String) As Boolean
    Dim pos As Long
    Dim lblfont1 As String
    pos = InStr(lblfont, ",")

    pos = InStr(pos + 2, lblfont, ",")
    lblfont1 = Mid(lblfont, InStr(lblfont, ",") + 1, pos - InStr(lblfont, ",") - 1)
    If lblfont1 = "粗体" Then
        SaveMakeFontBold = True
    ElseIf lblfont1 = "粗斜体" Then
        SaveMakeFontBold = True
    Else
        SaveMakeFontBold = False
    End If
    
End Function

'**********************************************************
'将字体设置中的文本显示的字体斜体设置取出，转换格式以进行存盘
'**********************************************************
Private Function SaveMakeFontItalic(lblfont As String) As Boolean
    Dim pos As Long
    Dim lblfont1 As String
    pos = InStr(lblfont, ",")

    pos = InStr(pos + 2, lblfont, ",")
    lblfont1 = Mid(lblfont, InStr(lblfont, ",") + 1, pos - InStr(lblfont, ",") - 1)
    If lblfont1 = "斜体" Then
        SaveMakeFontItalic = True
    ElseIf lblfont1 = "粗斜体" Then
        SaveMakeFontItalic = True
    Else
        SaveMakeFontItalic = False
    End If
End Function

'**********************************************************
'将字体设置中的文本显示的字体大小设置取出，转换格式以进行存盘
'**********************************************************

Private Function SaveMakeFontSize(lblfont As String) As Long
    Dim pos As Long
    Dim lblfont1 As String
    pos = InStr(lblfont, ",")
    pos = InStr(pos + 2, lblfont, ",")
    lblfont1 = Right(lblfont, Len(lblfont) - pos)
    SaveMakeFontSize = CLng(lblfont1)
End Function


Private Sub Form_Unload(Cancel As Integer)
    Set mPrintset = Nothing
End Sub

Private Sub lblbbbtzt_Change()
    Call MakeFont(lblbbbtzt, lbltitle)
    
End Sub

Private Sub lblbglbtzt_Change()
    Call MakeFont(lblbglbtzt, lblcaption)
   
End Sub

Private Sub lblbgnrzt_Change()
    Call MakeFont(lblbgnrzt, lblbgnr)
    
End Sub

Private Sub optPrintDirection_Click(Index As Integer)
    blnChangeFlag = 1
    
End Sub