1187
社区成员
水晶报表的问题，如何用程序在2000/xp系统中添加自定义纸张
看了很多类似的文章，请教一下，如何在系统中用程序添加自定义纸张。
我在水晶报表中，选了自定义纸张ps1，调试PaperSize=132 我把这个ps1在打印机的服务器属性里删掉，再加了个ps2的自定义纸张，发现水晶报表里的自定义纸张变成了ps2，也就是说报表是通过PaperSize来选择自定义纸张的，如果我们选择了个ps1的自定义纸张，在其他机子上PaperSize的值一般是不同的，所以这个自定义纸张到别的机子上就没用，
但程序可以指定报表的PaperSize，主要问题是换了机子，怎么知道我这个ps1的PaperSize呢，如果程序能够添加自定义纸张，并且返回PaperSize，那么关于报表的自定义纸张的问题就解决了
另：看了很多人说要在客户的机子上重新设置自定义纸张，再编译程序，否则就是默认纸张，就是为了更换PaperSize，同一个自定义纸张名字如果在不同机子上，一般是不同的。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
ebw_ren 2004-09-20
看了微软的写法，知道怎么加了。
这个水晶报表真拿他没办法，看来只有改默认设置了。
这个水晶报表真拿他没办法，看来只有改默认设置了。
ebw_ren 2004-09-20
天哪，头都破了，为什么在代码中改水晶报表的PaperSize不能改成自定义的？ 改成系统自带的就行，晕倒哦，是不是方法不对，或是版本不对，我是8.0的，是这样写的
Dim myPaperSize As Integer
myPaperSize = getPaperSize(m_dsrReport.PrinterName, m_dsrReport.PortName, "自定义纸张名")
If myPaperSize <> -1 Then
m_dsrReport.PaperSize = myPaperSize
Else
MsgBox "自定义纸张不存在，请（省略掉100字）"
End If
End Sub
Dim myPaperSize As Integer
myPaperSize = getPaperSize(m_dsrReport.PrinterName, m_dsrReport.PortName, "自定义纸张名")
If myPaperSize <> -1 Then
m_dsrReport.PaperSize = myPaperSize
Else
MsgBox "自定义纸张不存在，请（省略掉100字）"
End If
End Sub
ebw_ren 2004-09-20
这个函数可以根据纸张名来获取PaperSize,如果你要找的纸张名不存在，就提示用户添加吧，就是不知道程序怎么加，一定有api可以加的吧。
调用的时候可以这样 PaperSize = getPaperSize(m_dsrReport.PrinterName, m_dsrReport.PortName, "自定义纸张名")
Public Function getPaperSize(DeviceName As String, Port As String, PaperSizeName As String)
Dim Ret As Long, PaperSizes() As Integer
Dim PaperNames() As String, PageNames() As Byte
Dim allNames As String
Dim lStart As Long, lEnd As Long
getPaperSize = -1
Ret = DeviceCapabilities(DeviceName, Port, DC_PAPERS, ByVal 0&, ByVal 0&)
ReDim PaperSizes(1 To Ret) As Integer
Ret = DeviceCapabilities(DeviceName, Port, DC_PAPERS, PaperSizes(1), ByVal 0&)
ReDim PaperNames(1 To Ret) As String
ReDim PageNames(1 To Ret * 64) As Byte
Call DeviceCapabilities(DeviceName, Port, DC_PAPERNAMES, PageNames(1), ByVal 0&)
allNames = StrConv(PageNames, vbUnicode)
i = 1
Do
lEnd = InStr(lStart + 1, allNames, Chr$(0), vbBinaryCompare)
If (lEnd > 0) And (lEnd - lStart - 1 > 0) Then
PaperNames(i) = Mid$(allNames, lStart + 1, lEnd - lStart - 1)
i = i + 1
End If
lStart = lEnd
Loop Until lEnd = 0
Dim Cnt As Long
For Cnt = 1 To Ret
If UCase(CStr(PaperNames(Cnt))) = UCase(PaperSizeName) Then
getPaperSize = PaperSizes(Cnt)
End If
Next
End Function
调用的时候可以这样 PaperSize = getPaperSize(m_dsrReport.PrinterName, m_dsrReport.PortName, "自定义纸张名")
Public Function getPaperSize(DeviceName As String, Port As String, PaperSizeName As String)
Dim Ret As Long, PaperSizes() As Integer
Dim PaperNames() As String, PageNames() As Byte
Dim allNames As String
Dim lStart As Long, lEnd As Long
getPaperSize = -1
Ret = DeviceCapabilities(DeviceName, Port, DC_PAPERS, ByVal 0&, ByVal 0&)
ReDim PaperSizes(1 To Ret) As Integer
Ret = DeviceCapabilities(DeviceName, Port, DC_PAPERS, PaperSizes(1), ByVal 0&)
ReDim PaperNames(1 To Ret) As String
ReDim PageNames(1 To Ret * 64) As Byte
Call DeviceCapabilities(DeviceName, Port, DC_PAPERNAMES, PageNames(1), ByVal 0&)
allNames = StrConv(PageNames, vbUnicode)
i = 1
Do
lEnd = InStr(lStart + 1, allNames, Chr$(0), vbBinaryCompare)
If (lEnd > 0) And (lEnd - lStart - 1 > 0) Then
PaperNames(i) = Mid$(allNames, lStart + 1, lEnd - lStart - 1)
i = i + 1
End If
lStart = lEnd
Loop Until lEnd = 0
Dim Cnt As Long
For Cnt = 1 To Ret
If UCase(CStr(PaperNames(Cnt))) = UCase(PaperSizeName) Then
getPaperSize = PaperSizes(Cnt)
End If
Next
End Function
wumylove1234 2004-09-18
像我这样吧,改打印机默认设置,打印完之后再改回来!
wumylove1234 2004-09-18
FAQ列表的应该是只对Printer有效的.因为我试过,用AR的Pritner对象,跟本不起做用.
再说一句,AR的Printer的Hdc是0.跟本没用.
再说一句,AR的Printer的Hdc是0.跟本没用.
wwqna 2004-09-18
http://support.microsoft.com/default.aspx?scid=kb;zh-cn;282474
看看人家微软写的吧！
看看人家微软写的吧！
wumylove1234 2004-09-18
对了,你是不是有针打呢?有针打的话,你加我一下QQ,1669436,我正好没有针打做测试!!!!!!!!!!!!!!!!!!!!!
希望你尽快联系我!
希望你尽快联系我!
RUKYO 2004-09-18
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195778
http://www.china-askpro.com/msg18/qa80.shtml
http://www.china-askpro.com/msg18/qa80.shtml
wumylove1234 2004-09-17
我想AR和CR不知道一样不一样.
AR也是跟据PaperSize来获取纸型的,现在在程序中是对的,然后我发给别人测试,结果就不对,后来我才发现当PaperSize发生改变时,报表又会自动转成"打印机默认"!
周一有针打就可以测试了.如果成功,我会把代码发出来.
http://community.csdn.net/Expert/topic/3376/3376389.xml?temp=.5108301
关注我的帖子吧.
AR也是跟据PaperSize来获取纸型的,现在在程序中是对的,然后我发给别人测试,结果就不对,后来我才发现当PaperSize发生改变时,报表又会自动转成"打印机默认"!
周一有针打就可以测试了.如果成功,我会把代码发出来.
http://community.csdn.net/Expert/topic/3376/3376389.xml?temp=.5108301
关注我的帖子吧.
wumylove1234 2004-09-17
AR的问题我也正在解决这个问题中.现在有些进展,已在某针打上测试成功(网友测试,没见到打印效果).用了大堆API!
popraincn 2004-09-17
这我问题我也一直在想，可是还没有什么结果，不好意思。。
那位高人可以为我们这帮小弟指点迷津啊。。。
那位高人可以为我们这帮小弟指点迷津啊。。。
yelang771 2004-09-17
up
ebw_ren 2004-09-17
怎么没人讨论哦，是不是太简单了
ebw_ren 2004-09-17
这里有vc的
http://www.vccode.com/file_show.php?id=2164
http://www.vccode.com/file_show.php?id=2164
水晶报表如何自定义纸张大小 水晶报表中的纸张规格是根据windows操作系统中打印机设置的纸张规格获得的，因此想获得自定义的纸张大小，必须先在windows下自定义纸张。设置方法如下： WINDOWS XP 下自定义纸张的设置方法 操作方法...
针式打印机设置自定义纸张大小 XP操作系统中如何自定义纸张？为何有时看不到自己定义的纸张？ 文档编号：390003 一、问题描述 在Windows 2000和Windows XP操作系统中，如何自定义纸张大小？自定义纸张之后，为何在打印机属性的“纸张大小”中没有...
我在CSDN参与的3000个帖子 在ppt2000中能运行的代码在ppt2003中不能运行，是什么原因？ 83： 怎样把PPT中输入的数据保存到EXCEL中？ 84： 象棋游戏的问题 85： VBA不熟悉啊，请问怎么在Excel中插入删除行？ 86： xp下怎么...
WEB开发文档2 总结 http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到下一页显示...
vb源码 VB源码:vb 枚举系统正在运行的程序（包括隐含的） 下载地址:http://www.2e3.org/down.asp?url=lelecode_61 VB源码:vb 类MacOSX Dock浮动工具栏源代码VB 防苹果工具栏源代码 下载地址:...
windows类书的学习心得 所谓的Win32开发，就是在C语言的层面上，直接使用Win32 API开发Windows应用程序或者系统程序。虽说现在直接用Win32 API开发应用程序的人已经不多了，深入理解Windows系统程序设计原理，仍然是成为Windows开发高手的...
