UID43648
注册时间2008-12-14
最后登录2013-10-3
威望0 点
好评度0 点
金钱20 金币
列兵
|
发表于 2008-12-25 23:55:37
|
显示全部楼层
来自 浙江台州来自: 浙江台州
打印机打不出来,并且还是分了页
Private Sub Command2_Click()
Dim defprinter As String
defprinter = Printer.DeviceName
Printer.PaperSize = vbPRPSA4 \'定义纸张大小为A4
Printer.Orientation = vbPRORLandscape \'横向打印
Printer.Print \"打印内容\"
Printer.EndDoc
Printer.KillDoc
End Sub
要求一页打印要打印的内容,谢谢帮助
---------------------------------------------------------------------------------------------------------------------------------------
buy cheap wow gold ffxi gil wow power leveling sell wow gold WoW Account |
|