Question

VB6.0用commondialog的打印对话框，打印文本框(text1)的内容，如何操作？

Answer 1

• 单击菜单“工程”下的“部件”命令，将弹出“部件”对话框，如下图所示。

  

• 在“部件”对话框下的“控件”选项卡下选中Microsoft  Common Dialog Control 6.0,单击确定既可以在左侧的控件工具箱中显示  Common Dialog控件。如下图所示

  

• 在左侧的控件工具箱中拖拉刚才添加的Common Dialog控件到窗体中即可添加该控件。如下图所示

  

• 再从左侧控件工具箱中拖拉一个命令按钮到窗体中，如下图所示

  

• 双击该命令按钮进入代码编辑窗口，输入以下代码

  Private Sub Command1_Click()

  Me.CommonDialog1.ShowOpen

  MsgBox Me.CommonDialog1.FileName

  End Sub

  双击运行，将弹出选择文件对话框，选中文件后单击“打开“将弹出刚才选择的文件的路径+名称。如下图所示

  

• 6

  通过以上的步骤，大家基本应该掌握了如何在VB 6.0中添加和使用CommonDialog 控件了。

Answer 2

VB6.0用commondialog的打印对话框，打印文本框(text1)的内容，需要：

1. 使用打印窗体    Me.PrintForm，将整个窗体打印出来。

2. 若要打印文本内容，需要编写打印代码，涉及字体、字号、打印位置等。参考下列代码修改：

3. Private Sub Command1_Click()
       X = 500
       txt = "记录号"
       dd = prnt(X, Y, fnt, txt)
       fnt = 6
       X = 1400
       txt = "干箱温度"
       dd = prnt(X, Y, fnt, txt)
       X = 2000
       txt = "捕水温度1"
       dd = prnt(X, Y, fnt, txt)
       X = 2600
       txt = "捕水温度2"
       dd = prnt(X, Y, fnt, txt)
       X = 3200
       txt = "制品温度1"
       dd = prnt(X, Y, fnt, txt)
       X = 3800
       txt = "干箱真空"
       dd = prnt(X, Y, fnt, txt)
       X = 4400
       txt = "捕水真空"
       dd = prnt(X, Y, fnt, txt)
   End Sub

4. Public Function prnt(X As Variant, Y As Variant, fnt As Variant, txt0 As Variant)
       Printer.CurrentX = X
       Printer.CurrentY = Y
       Printer.FontSize = fnt
       Printer.Print txt0
   End Function

追问

可以把代码写详细一些吗，我只需要打印text1.text的内容

追答

这种代码写的非常清楚了，你只要测试下就知道效果。VB的打印代码编写是最繁琐的。如果Text1的文本内容不长仅几个文字，只需要将它赋值给我给的代码中的txt0即可。

Private Sub Command1_Click()
    X = 500
    Y = 1400
    fnt = 6
    txt = Text1
    dd = prnt(X, Y, fnt, txt)
End Sub

CommonDialog
控件（“打印”对话框）

通过使用 CommonDialog 控件的 ShowPrinter 方法可显示“打印”对话框。“打印”对话框可用以指定打印输出方式。可以指定被打印页的范围，打印质量，打印的份数等等。这个对话框还包含当前安装的打印机的信息，并允许配置或重新安装缺省打印机。

注意 这个对话框并不给打印机传送数据，只是指定希望打印数据的情况。如果 PrinterDefault 属性为 True，可以使用 Printer
对象按选定的格式打印数据。

Private Sub Command1_Click()
    Dim BeginPage, EndPage, NumCopies, i
    ' 设置“取消”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' 显示“打印”对话框
    CommonDialog1.ShowPrinter
    ' 从该对话框取得选定的值
    BeginPage = CommonDialog1.FromPage
    EndPage = CommonDialog1.ToPage
    NumCopies = CommonDialog1.Copies
    ' 此处放置将数据发送到打印机的代码
    X = 500
    Y = 1400
    fnt = 6
    txt = Text1
    dd = prnt(X, Y, fnt, txt)
    Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub

追问

好的，谢谢我试试

我用print to PDF来测试，打印的内容对是对，但格式好奇怪

还有，他需要等到整个程序关了才可以打印，这个问题是？

追答

在打印代码的后面加一句：
Printer.EndDoc

追问

谢谢