[已解决]求助高手如何按表名选择需要的单词打印成单词条？

jessylake · 发表于 2014-9-12 08:45

本帖最后由 jessylake 于 2014-9-13 17:58 编辑

这里的表名指的是C列中的单词表名称，每张表第一个单词都在C列标注这张表的名称。最后将这些单词按行打印在竖向排列的纸上，再裁剪成条，至于用A4还是B5，一张纸上打多少个词条，自己可以选择并调整，每个词条之间最好有虚线隔开方便裁剪。

设计了一个粗糙的版本，看高手们能不能给改进一下：

按表选择需要的单词打印成单词条.rar (25.9 KB, 下载次数: 3)

jessylake · 发表于 2014-9-12 12:08

看来难度比较大啊

su45 · 发表于 2014-9-12 12:22

挺麻烦的

jessylake · 发表于 2014-9-12 13:48

su45 发表于 2014-9-12 12:22
挺麻烦的

网上一查，也有不少关于工资条打印的，也不知道哪个更适合我这个

jessylake · 发表于 2014-9-12 13:49

jessylake 发表于 2014-9-12 12:08
看来难度比较大啊

能不能推荐一个好的例子，自己查确实抓不住重点，网上太多

jessylake · 发表于 2014-9-12 15:06

su45 发表于 2014-9-12 12:22
挺麻烦的

下拉菜单选择单词表名就可以定位单词表，并把这张表的所有单词提取到“词条打印”表里面了，下面就是怎么打印的问题了。

按表选择需要的单词打印成单词条.rar (25.02 KB, 下载次数: 7)

无聊的疯子 · 发表于 2014-9-12 23:09

代码中有注释，自己添加或修改就可以了，

不过还是建议你先做一个打印模版，然后直接往模版里写值就行了，
当模版写满后（或者数据已写完），开始打印
如果一个模版还不够的，打印完一页，清除数据，继续写继续打印

Sub cc()
Dim C As Range, MxRo As Long, Hx As Long, Arr()
With Sheets("单词库")
Set C = .Range("C:C").Find(.ComboBox1.Value, , , 1) '在C列查找控件中的值
If C Is Nothing Then Exit Sub '如果没找到则退出过程
Hx = C.End(xlDown).Row - 1 '往下查找有值的行号
MxRo = .Range("B1").End(xlDown).Row '往下查找最后一个有值(或无值)的行号
Hx = IIf(Hx > MxRo, MxRo, Hx) '数据交换
Arr = .Range(.Cells(C.Row, "A"), .Cells(Hx, "B")).Value '将区域中的值赋值给Arr
End With
With Sheets("打印词条")
.Range("A:B").Clear '清除内容及格式
With .Range("A1").Resize(UBound(Arr, 1), UBound(Arr, 2)) '确定写入区域
.Value = Arr '写入值
.Borders.LineStyle = xlDot '设置边框线型
.PrintOut '打印输出
End With
End With
End Sub

复制代码

jessylake · 发表于 2014-9-12 23:46

无聊的疯子发表于 2014-9-12 23:09
代码中有注释，自己添加或修改就可以了，

不过还是建议你先做一个打印模版，然后直接往模版里写值就行了 ...

谢谢老师，就是不知道这个打印模板是什么样子的，您有没有一个例子让我看看，我好照着做，作为一个初学者的理解，模板是不是就是一张表，里面是单词条的摆放格式，比如一只表里放十个单词条，每个单词条的长宽都定好了，只要往里面填单词，打印出来就可以直接裁剪成单词条了？

jessylake · 发表于 2014-9-13 07:54

无聊的疯子发表于 2014-9-12 23:09
代码中有注释，自己添加或修改就可以了，

不过还是建议你先做一个打印模版，然后直接往模版里写值就行了 ...

网上查了查打印模板，发现都是票据类的，还要扫描单据做成背景，很专业，相比之下我这个打个单词条是不是就是做个表格，每个单词所占的列数行数，行宽列宽，和每个单词的分割虚线设定好，以及一张纸上排列好打印的单词条数目就可以了吧？

无聊的疯子 · 发表于 2014-9-13 08:21

jessylake 发表于 2014-9-13 07:54
网上查了查打印模板，发现都是票据类的，还要扫描单据做成背景，很专业，相比之下我这个打个单词条是不是 ...

你想要打印出来是什么样子的，就做成什么样子的啊，这就是打印模版啊

包括所以有的打印设置，单元格设置，都设置好，然后用代码往指定地方写入值再打印

		自动登录	找回密码
密码			注册

[已解决]求助高手如何按表名选择需要的单词打印成单词条？

点评

评分