สอบถามปัญหา vb.net สั่ง Add header ใน excel แล้วมี error แจ้งให้ add printer
ลอง Add Printer ขึ้นมาซะ 1 เครื่องดูครับ
Date :
2013-08-22 06:20:02
By :
mr.win
แอดมาแล้วครับ ตอนนี้กลายเป็น error code นี้ "Unable to set the CenterHeader property of the PageSetup class" ที่เดิมครับ
หาข้อมูลจาก google ก็ยังบอกว่าเกี่ยวกับ printer อยู่ดี
Date :
2013-08-22 16:39:10
By :
Pigphong
Code ที่ปิดไว้เป็นตัวที่ run แล้วเกิด error Unable to set the CenterHeader property of the PageSetup class ครับ
Code (VB.NET)
With oSheet.PageSetup
'.LeftHeader = "&BConfidential&B"
'.CenterHeader = "Printed time is " & DateAdd(DateInterval.Day, 0, Now)
'.RightHeader = "Page &P"
'.LeftFooter = ""
'.CenterFooter = "Page &P of &N"
'.RightFooter = ""
'.PrintHeadings = False
'.PrintGridlines = False
.PrintComments = Excel.XlPrintLocation.xlPrintNoComments
'.PrintQuality = 600
'.CenterHorizontally = False
'.CenterVertically = False
.Orientation = Excel.XlPageOrientation.xlLandscape
'.Draft = False
.PaperSize = Excel.XlPaperSize.xlPaperLetter
'.FirstPageNumber = xlpxlAutomatic
'.Order = Excel.XlOrder.xlDownThenOver
'.BlackAndWhite = False
'.Zoom = 100
.PrintErrors = Excel.XlPrintErrors.xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
'.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Date :
2013-08-30 10:42:05
By :
Pigphong
Load balance : Server 04