VB中如何实现打印纸大小的动态设置（急！！！）

[pc01]

我在VB中通过printer行销售单据的打印，由于随着客户购卖东西的多少来动态生成单据的长度（有可能很窄，也有可能比较长），在刚开始时用printer的各种命令设好要打印单据格式和数据后，用printer.enddoc命令来送往打印机打印时，即使 一两条记录它也要走完一页纸（而客户的要求则是打在什么地方便停在那里，下一客户单了就跟在后面打印）。

后经查阅资讯，说将printer.papersize设为256（自定义大小），再通过printer.heigth printer.width 设为计算后的值就可以了。可程序在执行到printer.papersize=256却提示“无效属性值”错误，也就是无法完成。后又查到说该方法只能在98下正确实现，而在2000/XP下需要通过一些别的办法来实现，可都没有给出详细的实现方法（我指在VB程序中）。

那位知道如何通过VB在2000下实现打印纸大小的动态设置，或通过printer进行不规则长度连续打印的好办法，快帮帮我吧！

明天就要给交货了，很急的！！！····

[射天狼]

vbPRPSLetter 1 信笺， 8 1/2 x 11 英寸
vbPRPSLetterSmall 2 +A611 小型信笺， 8 1/2 x 11 英寸
vbPRPSTabloid 3 小型报， 11 x 17 英寸
vbPRPSLedger 4 分类帐， 17 x 11 英寸
vbPRPSLegal 5 法律文件， 8 1/2 x 14 英寸
vbPRPSStatement 6 声明书，5 1/2 x 8 1/2 英寸
vbPRPSExecutive 7 行政文件，7 1/2 x 10 1/2 英寸
vbPRPSA3 8 A3, 297 x 420 mm
vbPRPSA4 9 A4, 210 x 297 mm
vbPRPSA4Small 10 A4小号， 210 x 297 mm
vbPRPSA5 11 A5, 148 x 210 mm
vbPRPSB4 12 B4, 250 x 354 mm
vbPRPSB5 13 B5, 182 x 257 mm
vbPRPSFolio 14 对开本， 8 1/2 x 13 英寸
vbPRPSQuarto 15 四开本， 215 x 275 mm
vbPRPS1&H14 16 10 x 14 英寸
vbPRPS11x17 17 11 x 17 英寸
vbPRPSNote 18 便条，8 1/2 x 11 英寸
vbPRPSEnv9 19 #9 信封， 3 7/8 x 8 7/8 英寸
vbPRPSEnv10 20 #10 信封， 4 1/8 x 9 1/2 英寸
vbPRPSEnv11 21 #11 信封， 4 1/2 x 10 3/8 英寸
vbPRPSEnv12 22 #12 信封， 4 1/2 x 11 英寸
vbPRPSEnv14 23 #14 信封， 5 x 11 1/2 英寸
vbPRPSCSheet 24 C 尺寸工作单
vbPRPSDSheet 25 D 尺寸工作单
vbPRPSESheet 26 E 尺寸工作单
vbPRPSEnvDL 27 DL 型信封， 110 x 220 mm
vbPRPSEnvC3 29 C3 型信封， 324 x 458 mm
vbPRPSEnvC4 30 C4 型信封， 229 x 324 mm
vbPRPSEnvC5 28 C5 型信封， 162 x 229 mm
vbPRPSEnvC6 31 C6 型信封， 114 x 162 mm
vbPRPSEnvC65 32 C65 型信封，114 x 229 mm
vbPRPSEnvB4 33 B4 型信封， 250 x 353 mm
vbPRPSEnvB5 34 B5 型信封，176 x 250 mm
vbPRPSEnvB6 35 B6 型信封， 176 x 125 mm
vbPRPSEnvItaly 36 信封， 110 x 230 mm
vbPRPSEnvMonarch 37 信封大王， 3 7/8 x 7 1/2 英寸
vbPRPSEnvPersonal 38 信封， 3 5/8 x 6 1/2 英寸
vbPRPSFanfoldUS 39 U.S. 标准复写簿， 14 7/8 x 11 英寸
vbPRPSFanfoldStdGerman 40 德国标准复写簿， 8 1/2 x 12 英寸
vbPRPSFanfoldLglGerman 41 德国法律复写簿， 8 1/2 x 13 英寸
vbPRPSUser 256 用户定义

看看这里有没有你需要的大小!!

[wea1978]

关注……

[lihonggen0]

http://support.microsoft.com/default.aspx?scid=kb;EN-US;282474

[pc01]

vbPRPSUser 256 用户定义 在2000下根本没法用。提示“无效属性值”
帮忙啊！最好是以前实战检验过的方法。

[lihonggen0]

由于windows2000/NT系列不支持自定义纸张的设置，如果想进行自定义纸张的设置，请到“开始”－》“设置”－》“打印”,进入“打印机”界面后，不要选择任何的项目，此时设置“文件”菜单下的“服务器属性”，选择“创建新格式”同时设置“宽度”和“高度”等值(与自定义纸张的数值一致)，再在“格式描述”中输入你要的名字，最后点击“保存格式”。这张所谓的自定义格式纸张才可以用，其它设置方法同以前

[lihonggen0]

Private Type POINTAPI
x As Long
y As Long
End Type
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type PAGESETUPDLG
lStructSize As Long
hwndOwner As Long
hDevMode As Long
hDevNames As Long
flags As Long
ptPaperSize As POINTAPI
rtMinMargin As RECT
rtMargin As RECT
hInstance As Long
lCustData As Long
lpfnPageSetupHook As Long
lpfnPagePaintHook As Long
lpPageSetupTemplateName As String
hPageSetupTemplate As Long
End Type
Private Declare Function PAGESETUPDLG Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PAGESETUPDLG) As Long

Private Sub Command1_Click()
ShowPageSetupDlg
End Sub

Private Function ShowPageSetupDlg() As Long
Dim m_PSD As PAGESETUPDLG
'Set the structure size
m_PSD.lStructSize = Len(m_PSD)
'Set the owner window
m_PSD.hwndOwner = Me.hWnd
'Set the application instance
m_PSD.hInstance = App.hInstance
'no extra flags
m_PSD.flags = 0

'Show the pagesetup dialog
If PAGESETUPDLG(m_PSD) Then
ShowPageSetupDlg = 0
Else
ShowPageSetupDlg = -1
End If
End Function

[pc01]

可是由于不同客户的销费不一样，则其单据的长度也都不一样。通过“请到“开始”－》“设置”－》“打印”,进入“打印机”界面后，不要选择任何的项目，此时设置“文件”菜单下的“服务器属性”，选择“创建新格式”同时设置“宽度”和“高度”等值(与自定义纸张的数值一致)，再在“格式描述”中输入你要的名字，最后点击“保存格式”。”这种方法设置岂不又变成固定大小了。

比如像一些进销存都能实现根据记录数据打印相应长度。有知道它们是怎么做的吗？

[lihonggen0]

根据记录数据打印相应长度

你可以直接对print 对象写代码

[pc01]

“根据记录数据打印相应长度

你可以直接对print 对象写代码”


楼上能不能说的详细点，或给出具体的实现。谢谢了

[utilguy]

学习

[fionfrankie]

前提条件：使用水晶报表
dim x as long
dim y as long

x=自定纸宽
y=自定纸高
oReport.SetUserPaperSize x, y
set ReportViewer.ReportSource=oReport
ReportViewer.Show

[fionfrankie]

只有针打印可以基于行打印

[stronger]

study