Word打印程序代码.doc

MDI窗体程序代码Option ExplicitPublic intChildNum As Integer 字窗体数 变量Public intCaptionNum As Integer 变换标题名称 变量Public blnSaveAA As Boolean 与strCaptionAA确定另存为操作完后不出现消息框可直接退出Public strCaptionAA As String 用于确定另存为操作完后只有按本窗口关闭时有用并不出现消息框Public blnSaveBB As Boolean 与strCaptionBB确定保存操作完后不出现消息框可直接退出Public strCaptionBB As String 用于确定另存为操作完后只有按本窗口关闭时有用并不出现消息框Private Sub MDIForm_Load() mnuWindow.Visible = False 开始时不显示窗体菜单 mnuFileSave.Visible = False 开始时不显示保存菜单 mnuFileSaveAnother.Visible = False 开始时不显示另存为菜单 mnuEditor.Visible = False 开始时不显示编辑菜单 mnuO.Visible = False 开始时不显示格式菜单End SubPrivate Sub mnuEditor_Click() If ActiveForm.ActiveControl.SelText = Then mnuEditorEdi(0).Enabled = False mnuEditorEdi(1).Enabled = False mnuEditorEdi(3).Enabled = False If Clipboard.GetText = Then mnuEditorEdi(2).Enabled = False ElseIf Clipboard.GetText Then mnuEditorEdi(2).Enabled = True End If ElseIf ActiveForm.ActiveControl.SelText Then mnuEditorEdi(0).Enabled = True mnuEditorEdi(1).Enabled = True mnuEditorEdi(3).Enabled = True If Clipboard.GetText = Then mnuEditorEdi(2).Enabled = False ElseIf Clipboard.GetText Then mnuEditorEdi(2).Enabled = True End If End IfEnd SubPrivate Sub mnuEditorEdi_Click(Index As Integer) Select Case Index Case 0 Clipboard.SetText ActiveForm.ActiveControl.SelText 剪切 ActiveForm.ActiveControl.SelText = Case 1 Clipboard.SetText ActiveForm.ActiveControl.SelText 复制 Case 2 ActiveForm.ActiveControl.SelText = Clipboard.GetText 粘贴 Case 3 ActiveForm.ActiveControl.SelText = 删除 End SelectEnd SubPrivate Sub mnuEditortTD_Click()Dim str1 As StringDim str2 As Stringstr1 = Mid(ActiveForm.ActiveControl.Text, 1, Len(ActiveForm.ActiveControl.Text) 原文本内容str2 = Now 时间及日期ActiveForm.ActiveControl.Text = str1 + str2 原文本内容 + 时间及日期End SubPrivate Sub mnuFileSave_Click() Dim strTxt As String strTxt = ActiveForm.Txt1.Text CommonDialog1.Filter = 文本文档(*.txt)|*.txt 保存公共对话框只显示文本文件 CommonDialog1.ShowSave 弹出公共对话框 If CommonDialog1.FileName = Then Exit Sub 若按取消键则公共对话框消失 Open CommonDialog1.FileName For Output As #1 Print #1, strTxt 写文件 Close #1 blnSaveBB = True strCaptionBB = ActiveForm.Caption Call subAprcFrmEnd SubPrivate Sub mnuOFont_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.FontName = 宋体 CommonDialog1.ShowFont 打开字体对话框 ActiveForm.Txt1.FontName = CommonDialog1.FontName 改变文本字体格式 ActiveForm.Txt1.FontSize = CommonDialog1.FontSize ActiveForm.Txt1.FontBold = CommonDialog1.FontBold ActiveForm.Txt1.FontItalic = CommonDialog1.FontItalic ActiveForm.Txt1.FontStrikethru = CommonDialog1.FontStrikethru ActiveForm.Txt1.FontUnderline = CommonDialog1.FontUnderline ActiveForm.Txt1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub mnuFileExit_Click() Unload Me 窗体卸载End SubPrivate Sub mnufilenew_Click() Static i As Integer 设置静态变量作为标题属性取值 If i 1 Then i = 1 设置初值 i = i + intCaptionNum Dim newform As New Form1 newform.Caption = 文档 + Str(i) i = i + 1 标题数目增加 intCaptionNum = 0 模块级变量值重新为0 intChildNum = intChildNum + 1 子窗体数加 1 mnuWindow.Visible = True 显示窗体菜单 mnuFileSave.Visible = True 显示保存菜单 mnuFileSaveAnother.Visible = True 显示另存为菜单 mnuEditor.Visible = True 显示编辑菜单 mnuO.Visible = True 显示格式菜单 newform.Show 显示子窗体End SubPrivate Sub mnuFileOpen_Click() Dim str1 As String Dim str2 As String CommonDialog1.Filter = 文本文件(*.txt)|*.txt 打开公共对话框只显示文本文件 CommonDialog1.ShowOpen 打开公共对话框 If CommonDialog1.FileName = Then Exit Sub 若按取消键则公共对话框消失 Open CommonDialog1.FileName For Input As #2 Do While Not EOF(2) 函数 EOF() 用于判断是否到文件2末尾 Line Input #2, str1 读文件 str2 = str2 + str1 + vbCrLf Loop Close #2 mnuWindow.Visible = True 显示窗体菜单 mnuFileSave.Visible = True 显示保存菜单 mnuFileSaveAnother.Visible = True 显示另存为菜单 mnuEditor.Visible = True 显示编辑菜单 mnuO.Visible = True 显示格式菜单 Dim newform1 As New Form1 newform1.Caption = CommonDialog1.FileName 窗体标题名 intCaptionNum = intCaptionNum + 1 窗体标题名取值加 1 intChildNum = intChildNum + 1 子窗体数加 1 newform1.Txt1.Text = str2End SubPrivate Sub mnuFileSaveAnother_Click() Dim strTxt As String strTxt = ActiveForm.Txt1.Text CommonDialog1.Filter = 文本文档(*.txt)|*.txt 保存公共对话框只显示文本文件 CommonDialog1.ShowSave 弹出公共对话框 If CommonDialog1.FileName = Then Exit Sub 若按取消键则公共对话框消失 Open CommonDialog1.FileName For Output As #1 Print #1, strTxt 写文件 Close #1 blnSaveAA = True strCaptionAA = ActiveForm.Caption Call subAprcFrmEnd SubPrivate Sub mnuWindowArrange_Click(Index As Integer) Select Case Index 按不同要求排列窗体 Case 0 MDIForm1.Arrange 0 Case 1 MDIForm1.Arrange 1 Case 2 MDIForm1.Arrange 2 Case 3 MDIForm1.Arrange 3 End SelectEnd SubPrivate Sub subAprcFrm() If intChildNum = 0 Then mnuWindow.Visible = False 无子窗体时不显示窗体菜单 mnuEditor.Visible = False 无子窗体时不显示编辑菜单 mnuO.Visible = False 无子窗体时不显示格式菜单 End IfEnd Sub子窗体程序代码Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim int1 As Integer Dim strTxt As String strTxt = Txt1.Text 为写文件作准备 If MDIForm1.blnSaveAA And MDIForm1.strCaptionAA = MDIForm1.ActiveForm.Caption Then MDIForm1.blnSaveAA = False MDIFChildNum = MDIFChildNum - 1 子窗体数减 1 Call subAprcFrm Exit Sub 另存为后只有关闭本窗体才不弹出消息框 End If If MDIForm1.blnSaveBB And MDIForm1.strCaptionBB = MDIForm1.ActiveForm.Caption Then MDIForm1.blnSaveBB = False MDIFChildNum = MDIFChildNum - 1 子窗体数减 1 Call subAprcFrm Exit Sub 另存为后只有关闭本窗体才不弹出消息框 End If If Len(strTxt) = 0 Then MDIFChildNum = MDIFChildNum - 1 子窗体数减 1 Call subAprcFrm 调用subAprcFrm过程 Exit Sub End If int1 = MsgBox(MDIForm1.ActiveForm.Caption + 尚未保存，退出后是否保存？, 51, 注意！) 消息框 If int1 = vbYes Then CommonDialog1.Filter = 文本文档(*.txt)|*.txt 保存公共对话框只显示文本文件 CommonDialog1.ShowSave 弹出公共对话框 If CommonDialog1.FileName = Then Cancel = 1: Exit Sub 若按取消键则公共对话框消失 Open CommonDialog1.FileName For Output As #1 Print #1, strTxt 写文件 Close #1 MDIFChildNum = MDIFChildNum - 1 子窗体数减 1 Call subAprcFrm ElseIf int1 = vbNo Then MDIFChildNum = MDIFChildNum - 1 子窗体数减 1 Call subAprcFrm Exit Sub 不保存退出 ElseIf int1 = vbCancel Then Cancel = 1 停止卸载 End IfEnd SubPrivate Sub Form_Resize() 当改变窗体大小时文本框