excel打印按钮怎么做

首先插入一个按钮,然后试试点击“录制宏”按钮、点击系统的打印菜单按钮、再点击“停止录制宏”。

按下Alt+F11键打开VB窗口，将模块1内的过程代码复制到刚才插入的按钮里面后，按F5键试运行一下。

Excel打印按钮，编写代码，根据填写的数量打印张数。

实际就是PrintOut的Copies参数的设置问题。

总体代码如下:

Sub 宏1()

Range(“A5:D15”)PrintOut Copies:=Range(“C3”),Collate:=True

End Sub

代码图如下:

效果如下，由于没有打印机，所以用的是虚拟打印机的效果:

右键点参数表的  表名，查看代码---如下代码 复制进去，

按钮指定  dayin  程序

 For Each sht In ThisWorkbookSheets

  If shtIndex > ActiveSheetIndex Then

   shtActivate

   shtPrintOut

  End If

  Next

End Sub

import orgeclipseswt;

import orgeclipseswteventsSelectionAdapter;

import orgeclipseswteventsSelectionEvent;

import orgeclipseswtwidgets;

public class testSWT {

public static void main(String[] args) {

Display display = new Display();// 创建一个display对象。

final Shell shell = new Shell(display);// shell是程序的主窗体

shellsetLayout(null); // 设置shell的布局方式

shellsetText("按钮示例"); // 设置主窗体的标题

Button bt1 = new Button(shell, SWTNULL); // 创建默认按钮

bt1setText("我是按钮"); // 设置按钮上的文字

bt1setBounds(10, 10, 75, 30); // 设置按钮显示位置及宽度、高度

bt1addSelectionListener(new SelectionAdapter() {

public void widgetSelected(SelectionEvent e) {

MessageBox dialog = new MessageBox(shell, SWTOK

| SWTICON_INFORMATION);

dialogsetText("组件选择事件");

dialogsetMessage("你好！");

dialogopen();

}

});

shellpack(); // 自动调整主窗体的大小

shellopen(); // 打开主窗体

while (!shellisDisposed()) { // 如果主窗体没有关闭

if (!displayreadAndDispatch()) { // 如果display不忙

displaysleep(); // 休眠

}

}

displaydispose(); // 销毁display

}

}

用selectionprintout

copies:=1,

collate:=true语句。

主要是你只选定了奇数页和偶数页的相关单元格，而没有让该工作表激活，你打印时

activesheetpagesetupprintarea

=

"$a$1:$ag$18"

没有指定工作表，系统以为你要打的还是在你的“打印来源表”中activesheet这句的意思是活动工作表，你的活动工作表是“打印来源表”，于是就打印了“打印来源表”中的

"$a$1:$ag$18"。要么，你先让奇数页或者偶数页激活，在

range("奇数页！a1:ag18")select前面加一句sheet("奇数页")select

打印语句结束后又激活“打印来源表”sheet("打印来源表")select

活动单元格、活动工作表，选择单元格，的概念要分清。

以上就是关于excel打印按钮怎么做全部的内容，包括:excel打印按钮怎么做、Excel 打印按钮，如何编写代码根据填写的数量打印张数。、EXCEL打印按钮怎么设置等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！