dlgprint.frm

来自「通用书店管理系统」· FRM 代码 · 共 536 行 · 第 1/2 页

    Call tv.Nodes.Add("表单正文", tvwChild, "表单正文内容", "内容", "leaf")
    'Call tv.Nodes.Add("表单正文", tvwChild, "表单正文字体", "字体", "leaf")
    'Call tv.Nodes.Add("表单正文", tvwChild, "表单正文颜色", "颜色", "leaf")
    
    Call tv.Nodes.Add(, , "表尾叙述", "表尾叙述", "closeParent", "openParent")
    Call tv.Nodes.Add("表尾叙述", tvwChild, "表尾叙述内容", "内容", "leaf")
    'Call tv.Nodes.Add("表尾叙述", tvwChild, "表尾叙述字体", "字体", "leaf")
    'Call tv.Nodes.Add("表尾叙述", tvwChild, "表尾叙述颜色", "颜色", "leaf")
    
    Call tv.Nodes.Add(, , "签名", "签名", "closeParent", "openParent")
    Call tv.Nodes.Add("签名", tvwChild, "签名内容", "内容", "leaf")
    'Call tv.Nodes.Add("签名", tvwChild, "签名字体", "字体", "leaf")
    'Call tv.Nodes.Add("签名", tvwChild, "签名颜色", "颜色", "leaf")
    
    Call tv.Nodes.Add(, , "页脚", "页脚", "closeParent", "openParent")
    Call tv.Nodes.Add("页脚", tvwChild, "页脚内容", "内容", "leaf")
    'Call tv.Nodes.Add("页脚", tvwChild, "页脚字体", "字体", "leaf")
    'Call tv.Nodes.Add("页脚", tvwChild, "页脚颜色", "颜色", "leaf")
    
    tv.Nodes(1).Selected = True
    fraContent.Visible = False
    
    Set pi = PrintInfo
    
End Sub
Private Sub CancelButton_Click()
    blnOK = False
    Unload Me
End Sub

Private Sub cmdColor_Click()
    '设置颜色
    On Error Resume Next
    
    Err.Number = 0
    cd.CancelError = True
    cd.ShowColor
    If Err.Number = 0 Then
        txtContent.ForeColor = cd.Color
        
        Call UpdatePrintInfo(tv.SelectedItem.Key)
    End If
    
End Sub

Private Sub cmdFont_Click()
    '设置字体
    On Error Resume Next
    
    Err.Number = 0
    cd.CancelError = True
    cd.Flags = cdlCFBoth
    cd.ShowFont
    If Err.Number = 0 Then
        txtContent.Font.Bold = cd.FontBold
        txtContent.Font.Italic = cd.FontItalic
        txtContent.Font.Size = cd.FontSize
        txtContent.Font.Name = cd.FontName
        
        Call UpdatePrintInfo(tv.SelectedItem.Key)
    End If
        
End Sub

Private Sub Form_Load()
    Call iniForm
End Sub

Private Sub OKButton_Click()
    blnOK = True
    
    strTxtPageRange = Trim(txtPageRange.Text)
    strTxtCopyQty = Trim(txtCopyQty.Text)
    
    Set PrintInfo = pi
    Unload Me
End Sub

Private Sub tv_NodeClick(ByVal Node As MSComctlLib.Node)
    If TypeName(Node.Parent) = "Nothing" Then
        fraContent.Visible = False
    Else
        fraContent.Visible = True
    End If
    
    Call GetPrintInfo(tv.SelectedItem.Key)
            
End Sub

Private Sub txtContent_Validate(Cancel As Boolean)
    '信息得到改变
    
    Call UpdatePrintInfo(tv.SelectedItem.Key)
        
        
End Sub

'更新打印信息
Private Sub UpdatePrintInfo(PrintInfoName As String)
    Select Case Trim(PrintInfoName)
    Case "页眉内容"
        With pi.cqPageBrow
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
        
    Case "正标题内容"
        With pi.cqFirstTitle
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
        
    Case "副标题内容"
        With pi.cqSecondTitle
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
        
    Case "表前叙述内容"
        With pi.cqSayingAboveTable
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
        
    Case "表单正文内容"
        With pi.cqTable
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
    
    Case "表尾叙述内容"
        With pi.cqSayingBelowTable
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
        
    Case "签名内容"
        With pi.cqSign
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
        
    Case "页脚内容"
        With pi.cqPageFoot
            .Content = Me.txtContent.Text
            .FontBold = Me.txtContent.Font.Bold
            .FontItalic = Me.txtContent.Font.Italic
            .FontName = Me.txtContent.Font.Name
            .FontSize = Me.txtContent.Font.Size
            .ForeColor = Me.txtContent.ForeColor
        End With
    
    End Select
End Sub

Private Sub GetPrintInfo(PrintInfoName As String)
    Select Case Trim(PrintInfoName)
    Case "页眉内容"
        With pi.cqPageBrow
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
        
    Case "正标题内容"
        With pi.cqFirstTitle
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
        
    Case "副标题内容"
        With pi.cqSecondTitle
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
        
    Case "表前叙述内容"
        With pi.cqSayingAboveTable
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
        
    Case "表单正文内容"
        With pi.cqTable
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
    
    Case "表尾叙述内容"
        With pi.cqSayingBelowTable
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
        
    Case "签名内容"
        With pi.cqSign
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
        
    Case "页脚内容"
        With pi.cqPageFoot
            Me.txtContent.Text = .Content
            Me.txtContent.Font.Bold = .FontBold
            Me.txtContent.Font.Italic = .FontItalic
            Me.txtContent.Font.Name = .FontName
            Me.txtContent.Font.Size = .FontSize
            Me.txtContent.ForeColor = .ForeColor
        End With
    
    End Select
End Sub