怎么调用打印机并打印？

ghost1980 2004-01-05 09:58:58

怎么调用打印机并打印，谢谢了！

...全文

78 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

ghost1980 2004-01-05

打赏
举报

我想调用WORD打印怎么办？

lily1265 2004-01-05

打赏
举报

还可以调用excel打印，要是有用友华表就更方便了！呵~~

lily1265 2004-01-05

打赏
举报

Dim SB As Control
Set SB = Printer
Printer.Orientation = 2
Printer.PaperSize = 13
Const w = 1, DS = 1.5, DS1 = 0.4
SB.CurrentY = 0
Printer.PaperBin = 1
Printer.PaperSize = 9
Printer.PrintQuality = 300
AutoRedraw = -1 ' 打开AutoRedraw。
Printer.Orientation = 1
BackColor = QBColor(4) ' 设置背景颜色。
ForeColor = QBColor(15) ' 设置前景颜色。
Printer.FontSize = 20
Printer.ScaleMode = 7

Print "now printing..."
header = "aaaaa"
SB.CurrentX = (SB.ScaleWidth - SB.TextWidth(header)) / 2
SB.CurrentY = SB.CurrentY + 2 * DS1
SB.Print header SB.FontSize = 12
SB.Print "aaaa"
SB.CurrentY = SB.CurrentY + DS1
SB.CurrentX = w
SB.Print "开户银行："; Combokhh.Text; ""
SB.CurrentY = SB.CurrentY + DS1
If vbNo = MsgBox("是否继续打印该文档?", _
vbYesNo, msgtitle) Then
Printer.KillDoc
Else
Printer.EndDoc
End If

要想整齐就只能自己排版了

simonlee2003 2004-01-05