完美支持98、2000系统自定义打印纸张的VB代码

• 主要代码取自微软网站上的一篇文章，只做少许改动。

  98、2000系统下已测试通过（打印机LQ－300K）

  
  '模块modPrint
  Option EXPlicit

  Public Declare Function EnumForms Lib "winspool.drv" Alias "EnumFormsA" _
      (ByVal hPrinter As Long, ByVal Level As Long, ByRef pForm As Any, _
      ByVal cbBuf As Long, ByRef pcbNeeded As Long, _
      ByRef pcReturned As Long) As Long

  Public Declare Function AddForm Lib "winspool.drv" Alias "AddFormA" _
      (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte) As Long

  Public Declare Function DeleteForm Lib "winspool.drv" Alias "DeleteFormA" _
      (ByVal hPrinter As Long, ByVal pFormName As String) As Long

  Public Declare Function OpenPrinter Lib "winspool.drv" _
      Alias "OpenPrinterA" (ByVal pPrinterName As String, _
      phPrinter As Long, ByVal pDefault As Long) As Long

  Public Declare Function ClosePrinter Lib "winspool.drv" _
      (ByVal hPrinter As Long) As Long

  Public Declare Function DocumentProperties Lib "winspool.drv" _
      Alias "DocumentPropertiesA" (ByVal hwnd As Long, _
      ByVal hPrinter As Long, ByVal pDeviceName As String, _
      pDevModeOutput As Any, pDevModeInput As Any, ByVal fMode As Long) _
      As Long

  Public Declare Function ResetDC Lib "gdi32" Alias "ResetDCA" _
      (ByVal hdc As Long, lpInitData As Any) As Long

  Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
      (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

  
  Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" _
      (ByVal lpString1 As String, ByRef lpString2 As Long) As Long

  ' Optional functions not used in this sample, but may be useful.
  

• [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] 下一页 
• 
  复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
• 完美支持98、2000系统自定义打印纸张的VB代码 相关文章：
• ·神圣纪事详尽完全攻略
• ·《仙剑奇侠传2》完美补充攻略 - 游戏攻略
• ·黑鹰行动军刀部队-完整攻略
• ·驱动完全手册——基础篇
• ·完美修复xp&vista双系统启动项
• ·电脑变慢完全解决方案
• ·幻世录2魔神战争 完全物品列表 - 游戏攻略
• ·高手进阶，终极内存技术指南——完整/进阶版
• ·河南网通宽带共享:破解河南网通宽带共享完全版
• ·[帮主必读]帮派建设相关完全详述
• 完美支持98、2000系统自定义打印纸张的VB代码 相关软件
• ·大航海时代4 威力加强XP完美版
• ·《三国群英传3》完美硬盘版
• ·三国群英传2完整中文版
• ·F22战斗机 完美硬盘版
• ·沙漠风暴完美版
• ·《圣斗士·冥王篇》开场音乐完美版
• ·过山车大亨3中文完美版
• ·《主题医院2》完美中文硬盘版
• ·三国群英传4完整硬盘版
• ·杀手3:契约(Hitman:Contrac) 完美版

上一篇:【翻译】Managed DirectX（第六章）

下一篇:利用.NET语言开发自己的脚本语言(一)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐