代码操作 excel 打印且适应纸张大小

打印前先修改 excel 单元格适应 a4纸行高，列换

根据换行符设置行高

      for I := 1 to ExcelApp.ActiveSheet.UsedRange.rows.Count dobeginfor j := 1 to ExcelApp.ActiveSheet.UsedRange.columns.Count dobeginlstr := ExcelApp.ActiveSheet.UsedRange.Cells[i,j];if  (Pos(#10,lstr) > 0) and (i > 1) and (j > 1) thenbeginExcelApp.ActiveSheet.UsedRange.cells[i,j].shrinktoFit := true;lcrosslen := CountOccurences(''#$A'',lstr);lrowheight := ExcelApp.ActiveSheet.UsedRange.cells[i,j].rowheight;ExcelApp.ActiveSheet.cells[i,j].UsedRange.rowheight := lrowheight *(lcrosslen+1);end;end;end;//      ExcelApp.ActiveSheet.UsedRange.Rows.AutoFit;

根据纸张大小设置列宽

 ExcelApp.ActiveSheet.columns.HorizontalAlignment := 2;ExcelApp.ActiveSheet.Columns[1].ColumnWidth := 3;ExcelApp.ActiveSheet.Columns[2].ColumnWidth := 3; //这里的8非象素，而是8个字符的平均宽度;ExcelApp.ActiveSheet.Columns[3].ColumnWidth := 8;ExcelApp.ActiveSheet.Columns[4].ColumnWidth := 20;ExcelApp.ActiveSheet.Columns[5].ColumnWidth := 3;ExcelApp.ActiveSheet.Columns[6].ColumnWidth := 49;ExcelApp.ActiveSheet.Columns[7].ColumnWidth := 2;ExcelApp.ActiveSheet.Columns[8].ColumnWidth := 0;

VBA 打印设置相关属性及方法打印设置说明，以下均为默认值。With ActiveSheet.PageSetup.PrintTitleRows = ""                                '工作表打印标题：顶端标题行(R).PrintTitleColumns = ""                             '工作表打印标题：左端标题列(C)
End With ActiveSheet.PageSetup.PrintArea = ""                    '工作表打印区域(A)With ActiveSheet.PageSetup.LeftHeader = ""                                    '自定义页眉：左(L).CenterHeader = ""                                  '页眉/自定义页眉：中(C).RightHeader = ""                                   '自定义页眉：右(R).LeftFooter = ""                                    '自定义页脚：左(L).CenterFooter = ""                                  '页脚/自定义页脚：中(C).RightFooter = ""                                   '自定义页脚：右(R).LeftMargin = Application.InchesToPoints(0.75)      '页边距：左(L)_1.9厘米.RightMargin = Application.InchesToPoints(0.75)     '页边距：右(R)_1.9厘米.TopMargin = Application.InchesToPoints(1)          '页边距：上(T)_2.5厘米.BottomMargin = Application.InchesToPoints(1)       '页边距：下(B)_2.5厘米.HeaderMargin = Application.InchesToPoints(0.5)     '页边距：页眉(A)_1.3厘米.FooterMargin = Application.InchesToPoints(0.5)     '页边距：页脚(F)_1.3厘米.PrintHeadings = False                              '工作表打印：行号列标(L).PrintGridlines = False                             '工作表打印：网格线(G).PrintComments = xlPrintNoComments                  '工作表打印批注(M)：无/(工作表末尾) xlPrintSheetEnd/(如同工作表中的显示) xlPrintIace.PrintQuality = 180                                 '页面打印质量(Q)：180/360点 英寸.CenterHorizontally = False                         '页边距居中方式：水平(Z).CenterVertically = False                           '页边距居中方式：垂直(V).Orientation = xlPortrait                           '页面方向：纵向(T) xlPortrait/ 横向 (L)xlLandscape.Draft = False                                      '工作表打印：按草稿方式(Q).PaperSize = xlPaperA4                              '页面纸张大小(Z)：A4.FirstPageNumber = xlAutomatic                      '页面起始页码：自动.Order = xlDownThenOver                             '工作表打印顺序：先列后行(D)/先行后列(V) xlOverThenDown.BlackAndWhite = False                              '工作表打印：单色打印(B).Zoom = 100                                         '页面缩放比例：100%     若选择页面缩放比例，则下面两项没有。.Zoom = False                                       '页面缩放比例：未选择   若选择调整页面则此项必为False，且与下面两项一起出现。.FitToPagesWide = 1                                 '页面缩放：调整为1页高.FitToPagesTall = 1                                 '页面缩放：调整为1页宽.PrintErrors = xlPrintErrorsDisplayed               '工作表打印错误单元格打印为(E)：显示值/<空白> xlPrintErrorsBlank/--
xlPrintErrorsDash/#N/A xlPrintErrorsNA
EndWithActiveSheet.PrintOut From:=起始页, To:=终止页                         '打印指定页数
.PrintOut Copies:=2                                       打印份数

代码操作 excel 打印且适应纸张大小相关推荐

C#操作excel打印
C#操作excel打印 using System; using System.Data; using System.IO; using System.Runtime.InteropServices; ...
delphi 获取打印机默认纸张_Delphi中如何控制打印方向，纸张大小等 | 学步园
如何在程序里控制打印纸张大小(A3,A4)和打印方向?不想打开设置窗口 --------------------------------------------------------------- ...
打印时的纸张大小尺寸
平时去打印室打印,经常打印的A4纸张,一直不知道具体尺寸,查了一下一般有下面几种: 大32开 14*20.3cm(以下单位都是毫米) 32开 130*184 16开 ...
WPF 打印A3 A4 纸张大小的图片
实现效果实现思路根据整体高宽等比缩放纸张大小以显示进行业务上的编辑出图的时候,等比恢复图片大小至目标纸张大小示例代码 PrintImage 的 PrintImageWithPageSetti ...
Delphi中如何控制打印方向，纸张大小等
如何在程序里控制打印纸张大小(A3,A4)和打印方向?不想打开设置窗口 --------------------------------------------------------- ...
使用代码操作Excel文件(easyExcel)
文章目录 1.Maven导入easyExcel包 2.easyExcel进行基本的写入 3. 编写代码:读和写 EasyExcel文档:https://www.yuque.com/easyexcel/ ...
(转载)关于PB打印设置中纸张的大小，
我添加了后面一列,具体毫米大小关于PB打印设置中纸张的大小原创 Linux操作系统作者:coolhe 时间:2009-09-02 11:26:30 5930 0 http:/ ...
关于PB打印设置中纸张的大小
PB打印设置中纸张大小的设置方法: dw_1.Modify("DataWindow.Print.Paper.Size='' ") 的取值如下: 0 - Default, 1 ...
excel打印预览在哪里_易打标条码标签设计打印软件下载_易打标条码标签设计打印软件绿色版下载...
<易打标条码标签设计打印软件>是一款条形码.二维码打印软件,功能强大,使用方便,能够支持LPT/COM/USB等多种形式的打印设备连接. 软件特性功能布局清晰简洁,导航式设计,上手即会; ...

代码操作 excel 打印且适应纸张大小

代码操作 excel 打印且适应纸张大小相关推荐

最新文章

热门文章

代码 操作 excel 打印且适应纸张大小

代码 操作 excel 打印且适应纸张大小相关推荐

最新文章

热门文章

代码操作 excel 打印且适应纸张大小

代码操作 excel 打印且适应纸张大小相关推荐