VB如何使用API直接操作打印机

大佬教程收集整理的这篇文章主要介绍了VB如何使用API直接操作打印机，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

有时出于某种原因，我们需要使用API直接操作打印机，而不是使用Printer对象。在网上这类代码较少，而且功能也不齐全，所以写了这段代码。由于写得匆忙，且没有安装打印，因此差错在所难免，希望朋友们指正。

Option Explicit '* <a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a> * '* 程序名称：Demo<a href="http://code.js-code.com/tag/b/" target="_blank" class="keywords">.b</a>as '* 程序功能：演示VB如何用API操作打印机 '* 作者：lyserver '* 联系方式：<a href="http://code.js-code.com/tag/http/" target="_blank" class="keywords">http</a>://blog.csdn.net/lyserver '* <a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a><a href="http://code.js-code.com/tag/" target="_blank" class="keywords">**</a> * Private Type DOCINFO cbSize As Long lpszDocName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng lpszOutput As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng lpszDatatype As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng fwType As Long End Type Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long,ByVal W As Long,ByVal E As Long,ByVal O As Long,ByVal I As Long,ByVal u As Long,ByVal S As Long,ByVal C As Long,ByVal OP As Long,ByVal CP As Long,ByVal Q As Long,ByVal PAF As Long,ByVal F As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng) As Long Private Const DEFAULT_CHARSET = 1 Private Const OUT_DEFAULT_PRECIS = 0 Private <a href="http://code.js-code.com/tag/constc/" target="_blank" class="keywords">const c</a>LIP_DEFAULT_PRECIS = 0 Private Const PROOF_QUALITY = 2 Private Const DEFAULT_PITCH = 0 Private Declare Function MulDiv Lib "kernel32" (ByVal n<a href="http://code.js-code.com/tag/numb/" target="_blank" class="keywords">numb</a>er As Long,ByVal nNumerator As Long,ByVal nDenominator As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long,ByVal hdc As Long) As Long Private Declare Function <a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct Lib "gdi32.dll" (ByVal hdc As Long,ByVal hOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long,ByVal x As Long,ByVal y As Long,ByVal lp<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal nCount As Long) As Long Private Declare Function <a href="http://code.js-code.com/tag/delet/" target="_blank" class="keywords">delet</a>eOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct Lib "gdi32.dll" (ByVal hOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct As Long) As Long Private Declare Function CreateDC Lib "gdi32.dll" Alias "CreateDCA" (ByVal lpszDriver As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal lpszDevice As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal lpszOutput As Long,lpInitData As Any) As Long Private Declare Function <a href="http://code.js-code.com/tag/delet/" target="_blank" class="keywords">delet</a>eDC Lib "gdi32.dll" (ByVal hdc As Long) As Long Private Declare Function StartPage Lib "gdi32.dll" (ByVal hdc As Long) As Long Private Declare Function StartDoc Lib "gdi32.dll" Alias "StartDocA" (ByVal hdc As Long,lpdi As DOCINFO) As Long Private Declare Function EndPage Lib "gdi32.dll" (ByVal hdc As Long) As Long Private Declare Function EndDoc Lib "gdi32.dll" (ByVal hdc As Long) As Long Private Declare Function GetProfile<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng Lib "kernel32" Alias "GetProfile<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ngA" (ByVal lpAppName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal lpKeyName As Any,ByVal lpDefault As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal lpReturned<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal nSize As Long) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long,ByVal lpSubKey As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,phkResult As Long) As Long Private Const HKEY_CURRENT_USER = &H80000001 Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long,ByVal lpValu<a href="http://code.js-code.com/tag/ename/" target="_blank" class="keywords">ename</a> As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,ByVal lpReserved As Long,lpType As Long,l<a href="http://code.js-code.com/tag/PDA/" target="_blank" class="keywords">PDA</a>ta As Any,lpcbData As Long) As Long ' Note that if you declare the l<a href="http://code.js-code.com/tag/PDA/" target="_blank" class="keywords">PDA</a>ta parameter as <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,you must pass it By Value. Private Const REG_SZ = 1 ' Unicode nul terminated <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Const ERROR_<a href="http://code.js-code.com/tag/succes/" target="_blank" class="keywords">succes</a>S = 0& Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuild<a href="http://code.js-code.com/tag/numb/" target="_blank" class="keywords">numb</a>er As Long dwPlatformId As Long szCSDVersion As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng * 128 ' Maintenance <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng for PSS usage End Type Private Declare Function GetVersion Lib "kernel32" () As Long Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Const VER_PLATFORM_WIN32_WINDOWS = 1 Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Declare Function SetMapMode Lib "gdi32" (ByVal hdc As Long,ByVal nMapMode As Long) As Long Private Const MM_ANISOTROPIC = 8 Private Declare Function SetWindowExtEx Lib "gdi32" (ByVal hdc As Long,ByVal nX As Long,ByVal nY As Long,ByVal lpSize As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long,ByVal nIndex As Long) As Long Private Const LOGPIXE<a href="http://code.js-code.com/tag/LSX/" target="_blank" class="keywords">LSX</a> = 88 ' Logical pixels/inch in X Private Const LOGPIXELSY = 90 ' Logical pixels/inch in Y Private Declare Function SetViewportExtEx Lib "gdi32" (ByVal hdc As Long,ByVal lpSize As Long) As Long Sub Main() '获得操作系统版本号 Dim ovi As OSVERSIONINFO GetVersionEx ovi '获得默认打印机 Dim dwSize As Long Dim strBuffer As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,PrinterName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,DriverName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng,PortName As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng dwSize = 255 strBuffer = <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng(dwSize,vbNullChar) If ovi.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then 'WIN16 GetProfile<a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng "windows","device","",strBuffer,dwSize Else 'WIN32 Dim hKey As Long,dwType As Long RegOpenKey HKEY_CURRENT_USER,"Software/Microsoft/Windows NT/CurrentVersion/Windows",hKey dwType = REG_SZ RegQueryValueEx hKey,"Device",dwType,ByVal strBuffer,dwSize RegCloseKey hKey End If Dim strArray() As <a href="http://code.js-code.com/tag/Stri/" target="_blank" class="keywords">Stri</a>ng strArray = Split(Left(strBuffer,<a href="http://code.js-code.com/tag/instr/" target="_blank" class="keywords">instr</a>(strBuffer,vbNullChar) - 1),",") PrinterName = strArray(0) DriverName = strArray<a href="http://code.js-code.com/tag/1/" target="_blank" class="keywords">(1)</a> PortName = strArray(2) '创建打印机DC Dim hPrinterDC As Long hPrinterDC = CreateDC(DriverName,PrinterName,ByVal 0&) '创建一个24像素大小的字体 Dim hDesktopDC As Long Dim hFont As Long,hOldFont As Long hDesktopDC = GetDC(0) hFont = CreateFont(-MulDiv(24,GetDeviceCaps(hDesktopDC,LOGPIXELSY),72),DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,PROOF_QUALITY,DEFAULT_PITCH,"楷体_GB2312") ReleaseDC 0,hDesktopDC '将字体选入打印机DC hOldFont = <a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct(hPrinterDC,hFont) '调整打印机与屏幕分辨率 Dim x As Long,y As Long Dim xLogPixperInch As Long,yLogPixPerInch As Long Dim xExt As Long,yExt As Long x = GetSystemMetrics(SM_CXSCREEN) y = GetSystemMetrics(SM_CYSCREEN) SetMapMode hPrinterDC,MM_ANISOTROPIC '转换坐标映射方式 SetWindowExtEx hPrinterDC,x,y,ByVal 0& '确定窗口大小 xLogPixperInch = GetDeviceCaps(hPrinterDC,LOGPIXE<a href="http://code.js-code.com/tag/LSX/" target="_blank" class="keywords">LSX</a>) yLogPixPerInch = GetDeviceCaps(hPrinterDC,LOGPIXELSY) xExt = x * xLogPixperInch / 96 '得到设备坐标和逻辑坐标的比例 yExt = y * yLogPixPerInch / 96 SetViewportExtEx hPrinterDC,xExt,yExt,0 '确定视口大小 '开始打印 Dim di As DOCINFO StartDoc hPrinterDC,di '进纸 StartPage hPrinterDC '打印一个字符串 strBuffer = "我爱你中国！" TextOut hPrinterDC,10,LenB(StrConv(strBuffer,vbFromUnicod<a href="http://code.js-code.com/tag/E/" target="_blank" class="keywords">E)</a>) '退纸 EndPage hPrinterDC '结束打印 EndDoc hPrinterDC '还原打印机DC中的字体 <a href="http://code.js-code.com/tag/SELE/" target="_blank" class="keywords">SELE</a>ctOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct hPrinterDC,hOldFont '删除创建的字体 <a href="http://code.js-code.com/tag/delet/" target="_blank" class="keywords">delet</a>eOb<a href="http://code.js-code.com/tag/je/" target="_blank" class="keywords">je</a>ct hFont '删除打印机DC <a href="http://code.js-code.com/tag/delet/" target="_blank" class="keywords">delet</a>eDC hPrinterDC End Sub

大佬总结

以上是大佬教程为你收集整理的VB如何使用API直接操作打印机全部内容，希望文章能够帮你解决VB如何使用API直接操作打印机所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。