1. 编译成DLL档,然后在你的新工程中,在:工程->引用->找:SetPrinter(若不在,直接单击浏览按钮找你所编辑成的DLL文件名)
2. 在你的新工程中写如下代码:
Dim MyPrinter As New SetPrinter.CtlPrinter
MyPrinter.PaperSize = spPRPSA4 ' 纸张
MyPrinter.Orientation = spPRORLandscape ' 打印方向
Set MyPrinter = Nothing
2. 在你的新工程中写如下代码:
Dim MyPrinter As New SetPrinter.CtlPrinter
MyPrinter.PaperSize = spPRPSA4 ' 纸张
MyPrinter.Orientation = spPRORLandscape ' 打印方向
Set MyPrinter = Nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货