Excel打印設置

最新推荐文章于 2021-02-27 11:37:15 发布

AveryCN

最新推荐文章于 2021-02-27 11:37:15 发布

阅读量571

点赞数

分类专栏： VS

本文链接：https://blog.csdn.net/davidvn/article/details/24246459

版权

VS 专栏收录该内容

23 篇文章 0 订阅

订阅专栏

sheet.Range("A1").RowHeight = 35

sheet.Range("A1:J3").Font.Bold = True
sheet.Name = "PeopleCount"
sheet.Range("A:G").Font.Size = 14
sheet.Range("A1:G1").Font.Size = 24
sheet.Range("A:G").Font.Name = "標楷體"
sheet.Range("A:A").ColumnWidth = 14
sheet.Range("B:B").ColumnWidth = 22
sheet.Range("C:E").ColumnWidth = 9
sheet.Range("F:F").ColumnWidth = 21
sheet.Range("G:G").ShrinkToFit = True

sheet.PageSetup.BottomMargin = app.InchesToPoints(0.393700787401575 * 1.5)
sheet.PageSetup.TopMargin = app.InchesToPoints(0.393700787401575 * 1)
sheet.PageSetup.LeftMargin = app.InchesToPoints(0.393700787401575 * 0)
sheet.PageSetup.RightMargin = app.InchesToPoints(0.393700787401575 * 0)
sheet.PageSetup.FooterMargin = app.InchesToPoints(0.393700787401575 * 0.2)
sheet.PageSetup.HeaderMargin = app.InchesToPoints(0.393700787401575 * 1.3)
sheet.PageSetup.CenterHorizontally = True

'sheet.PageSetup.CenterVertically = True
sheet.Range("A:G").HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft
sheet.Range("A:G").VerticalAlignment = Excel.XlHAlign.xlHAlignCenter
sheet.Range("C:G").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
sheet.Range("A1:G1").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
sheet.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4
sheet.PageSetup.Orientation = Excel.XlPageOrientation.xlPortrait
sheet.PageSetup.PrintTitleRows = "A1:G1"
sheet.PageSetup.CenterFooter = "制表人:" & MainFrm.userInfo.UserName & " 第 &P 頁,共 &N 頁制表時間:" & Now