VFP中将表单的内容直接打印.docVIP

VFP中将表单的内容直接打印出处:网络 *-- 程序名称：将表单的内容直接打印 --* *-- 将窗口中的内容以一个位图的形式打印 --* *-- 程序作者：未知，来源论坛转帖 --* *-- 使用方法：在表单中执行该程序既可 --* * 例：在某表单的一个command --* *按纽中执行 do PrintForm.prg --* *-- 红虎工作室(honghoo.NET) 整理、编排 --* *-- 定义常量 #DEFINE LOGPIXELSX 88 #DEFINE LOGPIXELSY 90 #DEFINE PHYSICALOFFSET 112 #DEFINE PHYSICALOFFSETY 113 #DEFINE SRCCOPY#DEFINE DIB_RGB_COLORS 0 *-- 调用本程序段中的子过程 DO decl *-- 定义变量 PRIVATE pnWidth, pnHeight, lnBitsPerPixel, lnBytesPerScan STORE 0 TO pnWidth, pnHeight, lnBitsPerPixel, lnBytesPerScan LOCAL hwnd, hFormDC, hPrnDC, hMemDC, hMemBmp, hSavedBitmap,; xOffsPrn, yOffsPrn, xScale, yScale, lcDocInfo, lcBInfo, lpBitsArray *-- 得到打印机设备的坐标偏移量 hPrnDC = getDefaultPrnDC() 没有进行错误检查 xOffsPrn = GetDeviceCaps(hPrnDC, PHYSICALOFFSETX) yOffsPrn = GetDeviceCaps(hPrnDC, PHYSICALOFFSETY) *-- 得到屏幕的窗口句柄，及她们的宽度、高度等。 hwnd = GetFocus() a window with keyboard focus hFormDC = GetWindowDC(hwnd) = getWinRect (hwnd, @pnWidth, @pnHeight) *-- 根据屏幕和打印机得到缩放值 xScale = GetDeviceCaps(hPrnDC, LOGPIXELSX)/GetDeviceCaps(hFormDC,LOGPIXELSX) yScale = GetDeviceCaps(hPrnDC, LOGPIXELSY)/GetDeviceCaps(hFormDC,LOGPIXELSY) *-- 将屏幕的内容创建为位图图象数据 hMemDC = CreateCompatibleDC (hFormDC) hMemBmp = CreateCompatibleBitmap (hFormDC, pnWidth, pnHeight) hSavedBitmap = SelectObject(hMemDC, hMemBmp) *-- 将位图数据从屏幕拷贝到虚拟设备上 = BitBlt (hMemDC, 0,0, pnWidth,pnHeight, hFormDC, 0,0, SRCCOPY) = SelectObject(hMemDC, hSavedBitmap) * retrieving bits from the compatible bitmap into a buffer * as a device-independent bitmap (DIB) with a BitsPerPixel value * as one of the printer device context lcBInfo = InitBitmapInfo(hPrnDC) lpBitsArray = InitBitsArray() = GetDIBits (hMemDC, hMemBmp, 0, pnHeight,; lpBitsArray, @lcBInfo, DIB_RGB_COLORS) lcDocInfo = Chr(20) + Repli(Chr(0), 19) DOCINFO struct - 20 bytes IF StartDoc(hPrnDC, @lcDocInfo) 0 ? = StartPage(hPrnDC) ? = StretchDIBits (hPrnDC, xOffsPrn, yOffsPrn,; ??? xOffsPrn + Int(xScale * pnWidth),; ??? yOffsPrn + Int(yScale * pnHeight),; ??? 0,0, pnWidth, pnHeight,; ??? lpBitsAr