Excel打印設置

  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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值