我只想打印其中一行，或者第m行到第n行的数据。如何才能做到这一点？

下面分别显示了要打印的示例数据工作表、打印样式和表格模板工作表。

将数据工作表(如所示)中的数据导入表模板工作表(如所示)并打印出来(如所示)。

数据工作表

打印样表。

模板工作表

使用输入框打印指定的行数据。

如果要打印指定的数据行，可以简单地使用Application对象的InputBox方法，让用户输入要打印的行号。代码如下：

Sub printARowData()

数据记录工作表变量。

将工作周标记为工作表

模板工作表变量。

将工作稳定的工作表调暗

数据记录工作表中的最后一行变量。

昏暗的灯光和长长的一样

行变量。

昏暗的光线一样长

提示信息。

将字符串形式的字符串变暗

忽略错误。

出错时继续下一步

将工作表分配给相应的变量。

设置wksDatas=工作表(“数据”)。

设置wksTable=工作表(“表格模板”)。

获取数据记录工作表最后一行的行号。

lngLastRow=wksDatas。范围(“一”行。计数)。结束(xlUp)。排

'标题字符串'

请输入一个介于2-"液化天然气最后一行"之间的数字。

获取要打印的行。

lRow=应用程序。InputBox(prompt :=str compt，_

Title:=“打印指定行”，_。

Type:=1)

调试。打印lRow

将输入的数字限制在数据范围内。

如果lRow 1和lRow 1关闭

将数据工作表中的数据填充到模板中。

有了wksDatas

wksTable。范围(“B3”)=。范围(“A”低)

wksTable。范围(“F3”)=。范围(“B”lRow)

wksTable。范围(“B4”)=。范围(“C”lRow)

wksTable。范围(“D4”)=。范围(“D”lRow)

wksTable。范围(“F4”)=。范围(“E”lRow)

wksTable。范围(“B5”)=。范围(“F”lRow)

wksTable。范围(“F5”)=。范围(“G”lRow)

wksTable。范围(“B6”)=。范围(“高”低)

wksTable。范围(“F6”)=。范围(“I”lRow)

wksTable。范围(“B7”)=。范围(“J”lRow)

wksTable。范围(“B8”)=。范围(“K”lRow)

以…结尾

“打印”

wksTable。打印输出

其他

MsgBox“输入的行不存在！”

如果…就会结束

末端接头

运行代码，会弹出如图所示的输入框，在这里可以输入需要打印的数据的行号，从而实现数据打印。

输入要打印的数据所在的行号。

代码的图片版本如下：

代码图片

使用用户表单指定要打印的行数据范围。

首先，设计用户表单，获取用户输入的数值，如下图。用户表单在两个文本框中被命名为urfNum。

分别在txt行和txtEndRow中输入起始行和结束行的行号，点击名为cmdOK的ok按钮进行打印。

:用户表单设计。

用户表单模块代码：

私有子cmdOK_Click()

数据记录工作表变量。

将工作周标记为工作表

模板工作表变量。

将工作稳定的工作表调暗

数据记录工作表中的最后一行变量。

昏暗的灯光和长长的一样

“循环变量”

模糊如龙

开始行和结束行变量。

暗淡的第一行一样长

暗淡的蓝卓尔一样长

将工作表分配给相应的变量。

设置wksDatas=工作表(“数据”)。

设置wksTable=工作表(“表格模板”)。

获取数据记录工作表最后一行的行号。

lngLastRow=wksDatas。范围(“一”行。计数)。结束(xlUp)。排

忽略错误。

出错时继续下一步

获取数据值。

lStartRow=CLng(txtStartRow。文本)

len卓尔=CLng(txtEndRow。文本)

如果第一个行或第二个行或

MsgBox“数量不符合要求！”

txtStartRow。Text=" "

txtEndRow。Text=" "

出口接头

如果…就会结束

遍历数据记录工作表中的数据行。

在模板工作表中填写相应的数据。

因为我=第一行到第四行

将数据工作表中的数据填充到模板中。

有了wksDatas

wksTable。范围(“B3”)=。范围(“A”I)

wksTable。范围(“F3”)=。范围(“B”I)

wksTable。范围(“B4”)=。范围(“C”I)

wksTable。范围(“D4”)=。范围(“D”I)

wksTable。范围(“F4”)=。范围(“E”I)

wksTable。范围(“B5”)=。范围(“F”I)

wksTable。范围(“F5”)=。范围(“G”I)

wksTable。范围(“B6”)=。范围(“高”I)

wksTable。范围(“F6”)=。范围(“我”我)

wksTable。范围(“B7”)=。范围(“J”I)

wksTable。范围(“B8”)=。范围(“K”I)

以…结尾

“打印”

wksTable。打印输出

接下来我

卸载用户表单。

卸载urfNum

末端接头

运行代码后，将出现以下输入界面。您可以在文本框中依次输入要打印的起始行号和结束行号，以打印这两行之间的数据。如果两个行号相同，将只打印这一行数据。

:操作后需要输入数字的接口。

以下是上述代码的图片版本：