主题：席卡打印时能否对应打印倒立的字？

关键是好象没摸着倒立的字库啊

[这个贴子最后由tzszw在 2011/09/05 04:26pm 第 1 次编辑]

呵呵，网上搜了一下，貌似没有倒立的字库可以下载！

-=-=-=- 以下内容由 tzszw 在 2011年09月05日 04:27pm 时添加 -=-=-=-
倒是搜到一段文字，但不知如何操作：
Word中的中文倒字代码
功能简介:批量转换文字方向,使其产生倒字效果(注意不是铅印的反字,效果如:白日依山尽: 白日依山尽)
'* +++++++++++++++++++++++++++++++++++++++
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* --------------------------------------------------------------------------
Option Compare Text '不区分大小写
Sub DaoZi()
Dim i As Range, Ft As String, MyRange As Range
On Error Resume Next
Application.ScreenUpdating = False '关闭屏幕刷新
If Selection.Type = wdSelectionIP Then '判断光标位置
Set MyRange = Me.Content '全文
Else
Set MyRange = Selection.Range '所选部分
End If
For Each i In MyRange.Characters
If i Like "[a-z]" = True Or i Like "[0-9]" = True Then
Else Ft = i.Font.Name '原来的字体 '中文版式/纵横混排功能
i.HorizontalInVertical = wdHorizontalInVerticalFitInLine
i.Font.Name = "@" & Ft '原来字体的@型字体
End If
Next Application.ScreenUpdating = True '恢复屏幕刷新
End Sub '----------------------

-=-=-=- 以下内容由 tzszw 在 2011年09月05日 04:30pm 时添加 -=-=-=-
另外，在“艺术字”中是可以的，但是“艺术字”中如何调用易表的记录内容呢？这个倒是搞不明白了

呵呵，需要成批量打印的，而且数量或打印的名单是不确定的。EXECL做不是太方便。
记得以前用EXECL和WORD配套做过一个打印明信片的（WORD调用EXECL数据），那个因为字不是倒立的，所以可以用，但这个是要求字正立和倒立对应的，没法再用原来的模板喽。

真的无解了么？

[这个贴子最后由tzszw在 2011/09/11 11:50am 第 6 次编辑]

呵呵，最后还是用DOC和XLS两个文件（DOC的调用XLS的数据，也就是邮件合并）解决了。
需要的同志可以拿去用啊！

压缩包文件：简要说明：
1.解压到某个目录；
2.在“席卡名单.XLS”文件中维护好要打印的名单；
3.打开“席卡打印.DOC”文件，左右调整数据库记录指针（）标志到想打印的名单位置，点击打印按钮即可（打印纸设定的16K的，这个随各人需要自己调整吧）。

需要注意的是：
（1）调用“席卡打印.DOC”文件时，可能会出现调用XLS数据的文件连接提示，这时点击“是”按钮（如下图）；

（2）进入“席卡打印.DOC”文件后，如果没有出现数据连接后显示“数据记录”指针的按钮标志（）），则需要在WORD文档的顶层菜单图标中添加指针按钮，具体做法是：点顶总菜单右边的，在出现“工具栏选项”中的“添加和删除按钮”中选择“自定义”，然后将“数据库”和“邮件合并”两项打钩即可。

是不是第一步没将两个文件（DOC和XLS的）放在同一目录且在打开“席卡打印.DOC”文件系统提问要关联“席卡名单.XLS”文件时，没选择好“席卡名单.XLS”文件呢？
如果关联好了，不会有问题的，我已经让好几个人在不同机器上测试且正常使用了。

呵呵，用DOC和XLS的文档都做成功了，还要用与易表文件结合干啥啊？

应用应用，成功即可，没必要非得在哪一条道上走的啊！