Delphi ArcEngine 打印PageControl内容

最新推荐文章于 2021-04-22 15:46:03 发布

weixin_30747253

最新推荐文章于 2021-04-22 15:46:03 发布

阅读量197

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/chinacodegear/archive/2009/03/30/1425490.html

本文介绍了一个用于设置打印布局的函数PrintLayoutMap，该函数通过设置页面尺寸、打印方向和匹配值来实现页面到打印机的映射。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//需要引用 printer,windows 单元
function PrintLayoutMap(pPageLayout: TPageLayoutControl): Boolean;
var
pPrinter: IPrinter;
pPaper: IPaper;
pPage: IPage;
begin
if Printer.Printers.Count > 0 then
begin
    pPrinter := pPageLayout.Printer;
    pPaper := pPrinter.Paper;
    pPage := pPageLayout.Page;

    //设置页面尺寸，A4
    pPage.FormID := esriPageFormA4;

    //打印方向
    pPage.Orientation := 1;

    //匹配值
    pPage.PageToPrinterMapping := esriPageMappingScale;

    if pPaper.Orientation <> pPage.Orientation then
    begin
      pPaper.Orientation := pPage.Orientation;
    end;

    pPageLayout.PrintPageLayout(1, 1, 0);
    Result := True;
end
else
begin
    MessageBox(0, '没有连接好打印机设备！', '提示', MB_OK + MB_ICONWARNING + MB_DEFBUTTON2);
    Result := False;
end;
end;

转载于:https://www.cnblogs.com/chinacodegear/archive/2009/03/30/1425490.html