主题：[讨论]专业报表打印设置有关问题

1、我测试可以，也许你的打印机不支持自定义纸张吧：
 

Dim doc As New PrintDoc() '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
doc.PageSetting.Width = 100 '纸张宽度为100毫米
doc.PageSetting.Height = 120 '纸张高度为120毫米
doc.Preview() '预览

2、有专门的转换函数

CUMoney

将阿拉伯数字转换为中文货币格式。

语法

CUMoney(Value)

Value：要转换的阿拉伯数字。

例如：

Dim Currency as String
Currency = CUMoney(12345.12)
Output.Show(Currency)

输出为：壹万贰千叁佰肆拾伍圆壹角贰分

如果是为了打印的需要，根本没需要增加一个大写金额列，只需在打印报表的时候：

rx.Text = CUMoney(CurRow("金额"))

如果一定要这么一列，请参考帮助文件“开发指南 - foxtable编程 - 计算代码”

关于自定义纸张，尝试一下：

Dim doc As New PrintDoc() '定义一个报表
Dim rt As prt.RenderText '定义一个文本对象
doc.Pagesetting.Paperkind = 0
doc.PageSetting.Width = 100 '纸张宽度为100毫米
doc.PageSetting.Height = 120 '纸张高度为120毫米
doc.Preview() '预览

对于关键的问题，应该先单独测试，然后再整体编写代码。