页面中需要一个按钮，点击能打印第一页

zzpsx

页面中需要一个自制按钮，点击能打印第一页.rar (24.21 KB, 下载次数: 3)

2022-11-22 13:02 上传

点击文件名下载附件

qytjc

我不是高手，我也是初学者，我用的方法：
1.录制一个打印的宏，然后编辑这个宏，复制里面的全部编码。
2.新建一个按扭，双击进去，粘贴刚才的编码。退出设计模式。
3.点击按扭打印。

zzpsx

打印这个步骤能录制吗

qytjc

zzpsx 发表于 2022-11-25 10:19
打印这个步骤能录制吗

可以录制的！

zzpsx

qytjc 发表于 2022-11-25 15:54
可以录制的！

可否发一下代码

qytjc

就是用宏呀，把打印的代码复出来就可以用了！我这个代码和你的打印机型号不一样，也打不了！
Sub Macro1()
    Application.EnableEvents = False
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2147483647, Copies:=1, Preview:=False, ActivePrinter:="Gestetner MP 2554 PCL 6", PrintToFile:=False, Collate:=False, IgnorePrintAreas:=False
    Application.EnableEvents = True
End Sub

qytjc

操作步骤1.录制新宏。2.快捷键，随便输入一个。3.然后点一下打印。4.再点停止录制。5.点宏，6.编辑.就可以看到代码

chzsh

Sub dayin()

Sheets(1).PrintOut From:=1, To:=1

End Sub

chzsh

试试这个吧