调用系统API打印图片文字

{
    LPCTSTR filename=_T( " D:\\1.bmp ");
    CPrintDialog printDlg(FALSE);
    printDlg.GetDefaults(); 
     //  Or get from user:
    
//  if (printDlg.DoModal() == IDCANCEL)   
    
//         return; 
    CDC dc;
     if (!dc.Attach(printDlg.GetPrinterDC())) {
        AfxMessageBox(_T( " No printer founhh nn nd! "));  return;
    }

    HFONT hFont,hOldFont;
    hFont = CreateFont( 36, 18,   0,   0,FW_NORMAL,FALSE,FALSE,  FALSE,GB2312_CHARSET, OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH|FF_MODERN,_T( " 黑体 "));
    hOldFont = (HFONT)SelectObject(dc,hFont);

    dc.m_bPrinting = TRUE; 
    DOCINFO di;    
     //  Initialise print document details
    ::ZeroMemory (&di,  sizeof (DOCINFO));
    di.cbSize =  sizeof (DOCINFO);
    di.lpszDocName = filename; 
    BOOL bPrintingOK = dc.StartDoc(&di);  //  Begin a new print job 
    
//  Get the printing extents
    
//  and store in the m_rectDraw field of a 
    
//  CPrintInfo object
    CPrintInfo Info;
    Info.SetMaxPage( 1);  //  just one page 
     int maxw = dc.GetDeviceCaps(HORZRES);
     int maxh = dc.GetDeviceCaps(VERTRES); 
    Info.m_rectDraw.SetRect( 00, maxw, maxh); 
     for (UINT page = Info.GetMinPage(); page <= 
        Info.GetMaxPage() && bPrintingOK; page++) {
            dc.StartPage();     //  begin new page
            Info.m_nCurPage = page;
            CBitmap bitmap;
             if(!bitmap.Attach(::LoadImage(
                ::GetModuleHandle(NULL), filename, IMAGE_BITMAP,  00
                LR_LOADFROMFILE | LR_CREATEDIBSECTION | LR_DEFAULTSIZE))) {
                    AfxMessageBox(_T( " Error loading bitmap! "));  return;
            } 
            BITMAP bm;
            bitmap.GetBitmap(&bm);
             int w = bm.bmWidth; 
             int h = bm.bmHeight; 
             //  create memory device context
            CDC memDC; 
            memDC.CreateCompatibleDC(&dc);
            CBitmap *pBmp = memDC.SelectObject(&bitmap);
            memDC.SetMapMode(dc.GetMapMode());
            dc.SetStretchBltMode(HALFTONE);
             //  now stretchblt to maximum width on page
            dc.StretchBlt( 15, 20300110, &memDC,  00, w, h, SRCCOPY); 
             // textout
            HPEN hPen = CreatePen(PS_SOLID,  3, RGB( 0, 0, 0));
            HGDIOBJ hOldPen = SelectObject(dc,hPen);
            CStringW text;
            text    = " 资源编码 ";
            TextOut(dc, 15, 144+ 80,text,text.GetLength());   
            text= " 设计单位 ";
            TextOut(dc, 15, 210+ 80,text,text.GetLength());   
            text= " 施工单位 ";
            TextOut(dc, 15, 276+ 80,text,text.GetLength());   
            text= " 验收单位 ";
            TextOut(dc, 15, 342+ 80,text,text.GetLength());   
            text= " 竣工日期 ";
            TextOut(dc, 15, 408+ 80,text,text.GetLength());   
             // Line
            MoveToEx(dc, 160, 180+ 80,NULL);
            LineTo(dc, 516, 180+ 80);

            MoveToEx(dc, 160, 246+ 80,NULL);
            LineTo(dc, 516, 246+ 80);

            MoveToEx(dc, 160, 312+ 80,NULL);
            LineTo(dc, 516, 312+ 80);

            MoveToEx(dc, 160, 378+ 80,NULL);
            LineTo(dc, 516, 378+ 80);

            MoveToEx(dc, 160, 444+ 80,NULL);
            LineTo(dc, 516, 444+ 80);

            SelectObject(dc,hOldPen);
            DeleteObject(hPen);
             //  clean up
            memDC.SelectObject(pBmp);
            bPrintingOK = (dc.EndPage() >  0);    //  end page
    } 
     if (bPrintingOK)
        dc.EndDoc();  //  end a print job
     else dc.AbortDoc();            //  abort job. 
}

转载于:https://www.cnblogs.com/bobofsj11/archive/2012/05/14/2499411.html

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vfp9.0调用API制作照相软件实例 PUBLIC WM_CAP_DRIVER_DISCONNECT PUBLIC hwndc,WM_CAP_SAVEDIB,WM_CAP_FILE_SET_CAPTURE_FILEA,WM_CAP_SEQUENCE,WM_CAP_STOP DECLARE INTEGER capCreateCaptureWindowA IN "AVICAP32.DLL" STRING lpszWindowName ,INTEGER dwStyle , INTEGER x, INTEGER Y, INTEGER nWidth ,INTEGER nHeight,INTEGER ParentWin,INTEGER nId DECLARE INTEGER SendMessage IN "user32" INTEGER HWND, INTEGER wmsg,INTEGER wpar1, INTEGER wpar2 DECLARE INTEGER SendMessage IN "user32" AS SendMessageA INTEGER HWND, INTEGER wmsg,INTEGER wpar1, STRING wpar2 *!* 显示: WM_USER = 1024 WM_CAP_START = WM_USER WM_CAP_STOP = WM_CAP_START + 68 WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10 WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11 WM_CAP_SAVEDIB = WM_CAP_START + 25 WM_CAP_GRAB_FRAME = WM_CAP_START + 60 WM_CAP_SEQUENCE = WM_CAP_START + 62 WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20 WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63 WM_CAP_SET_OVERLAY =WM_CAP_START+ 51 WM_CAP_SET_PREVIEW =WM_CAP_START+ 50 WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6 WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2 WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3 WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5 WM_CAP_SET_SCALE=WM_CAP_START+ 53 WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52 hWndC = capCreateCaptureWindowA('My Own Capture Window',1342177280,0,0,200,150,THISFORM.HWND ,0) &&显示大小 IF hWndC 0 SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0) SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0) SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0) SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0) SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0) SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0) SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0) SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0) * THISFORM.ACTIVATE ENDIF
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值