printer.papersize=vbPRPSUser
printer.Height=你要的值
printer.Width =你要的值
printer.Height=你要的值
printer.Width =你要的值
解决方案 »
- 各位朋友都来看一看,这个界面是怎么做出来的!
- 如何提取指定文件夹下所有文件的文件名并把这些文件名在MSFlexGrid表中排列出来.
- 龙卷风,这是你吗?
- 【求救】关于VBA的找不到库文件~~~~
- 狂菜,下拉列表里的内容太长显示不出来,我该咋办?
- 各位大虾,我接下来该怎么做!(急)
- listbox控件问题
- 如何用vb自带的打包软件打包,在安装目录下创建一个文件夹如backup
- 关于Shell_NotifyIcon函数的使用
- 在VB 中怎样将控件编译成RELEASE版 即只生成一个.OCX文件,别人拿到就可以用?
- 程序员月薪调查!
- 关于****请教高手!------关于VB里获取所有打印纸张格式的方法***贴的再次讨论(在线等候)
windows2000下不行
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmFormName As String * CCHFORMNAME
其中dmFormName用于NT系统中指定打印纸张大小为预定义的某个纸张(Form),但是VB的 printer object不支持FormName属性,您可以通过API函数DocumentProperties修改DevMode结构的dmFormName属性实现自定义打印。
分两步做:
1. 先在打印机目录下,从File菜单下进入Server Properties对话框,在这里您可以手工添加自定义纸张,您也可以用API函数AddForm在程序中添加自定义纸张。
2. 在您的程序中,用API函数DocumentProperties获得当前打印机的设置并修改dmFormName为前面添加的自定义纸张。关于DevMode结构和DocumentProperties的使用可参考下面的例子。
Q282474 HOWTO: Print Using Custom Page Sizes on Windows NT/2000
http://support.microsoft.com/support/kb/articles/q282/4/74.asp
Q180645 FIX: Cannot Change Page Settings During Print Job
http://support.microsoft.com/support/kb/articles/q180/6/45.aspAPI函数的相关信息请参考:
AddForm
http://msdn.microsoft.com/library/en-us/gdi/prntspol_0prh.asp
DocumentProperties
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/prntspol_7k1f.asp- 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款
(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查
(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。
http://www.csdn.net/cnshare/soft/12/12442.shtm