VB中关于打印的问题

来源：百度知道 编辑：UC知道 时间：2024/06/22 07:47:04
我正在学习VB，其中遇到了一个关于打印的问题。
（1）无法打印出改变后的字体，每次打印都是原来打字体大小。
（2）按打印的键，弹出打印窗口后，再按取消键和关闭键都会自动打打印。
原代码如下：
Private Sub Command2_Click() '改变字体
CommonDialog1.Flags = &H3& Or &H100&
CommonDialog1.Max = 100
CommonDialog1.Min = 1
CommonDialog1.ShowFont
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
End Sub
Private Sub Command3_Click() '打印
CommonDialog1.Min = 1
CommonDialog1.Max = 100
CommonDialog1.ShowPrinter
CommonDialog1.CancelError = True
For i = 1 To CommonDialog1.Copies
Printer.Print Text1.Text
Next i
Printer.FontSize = CommonDialog1.FontSize
Printer.EndDoc
Printer.KillDoc
End Sub
希望高手能帮我解决这两个问题。谢谢！
还有第二个问题没有解决，能帮我解决吗？谢谢~~~
我的意思是弹出打印窗口后，按取消键或关闭窗口能使打印机不做打印操作。谢谢，能如果能解决再追加二十分。

打印的时候是需要单独再设定一次打印字体的,可以改成下面这样.
Private Sub Command3_Click() '打印
CommonDialog1.Min = 1
CommonDialog1.Max = 100
CommonDialog1.ShowPrinter
CommonDialog1.CancelError = True

Printer.FontSize = Text1.FontSize
Printer.FontName=Text1.FontName
Printer.FontBold = Text1.FontBold
Printer.FontItatic=Text1.FontItalic

For i = 1 To CommonDialog1.Copies
Printer.Print Text1.Text
Next i

Printer.EndDoc
Printer.KillDoc
End Sub

把打印那个过程改成上面这样就行了.

把你的第二个问题描写详细点嘛.
应该说只要程序执行了printer.enddoc这一句,该文档是必定会被打印的,除非你的打印机有问题.