Posted 17 May 2020, 5:26 am EST
Hello,
I am having problem with header and footer in VSprint. The text do not show up. I have attached the full test program
For iCnt2 = 1 To vp.PageCount
.FontName = “Arial”
.StartOverlay(iCnt2)
.MarginTop = “0.5in”
.MarginLeft = “2.0in”
.CurrentY = .MarginTop
.CurrentX = .MarginLeft
InitCol = .Columns
.Columns = 1
.FontBold = True
.FontSize = 10
.CurrentX = .MarginLeft
.Text = “T H I S I S H E A D E R”
.FontBold = False
.FontSize = 10
.PenWidth = “.3mm”
.CurrentX = .PageWidth - .MarginRight - .get_TextWidth(“TEST”)
'.CurrentX = .CurrentX + 0.55 * inch
.Text = “TEST”
.Paragraph = "" .Paragraph = "" 'print Footer .FontBold = False .FontSize = 8 .FontItalic = True .MarginLeft = "0.75in" .CurrentX = .MarginLeft .CurrentY = .PageHeight - .MarginBottom + 100 .PenWidth = ".3mm" .DrawLine(.CurrentX, .CurrentY, (.PageWidth - .MarginRight), .CurrentY) .CurrentY = .PageHeight - .MarginBottom + 120 .CurrentX = .PageWidth - .MarginRight - .get_TextWidth("Page 1 of 99") .Text = "Page " & iCnt2 & " of " & .PageCount .Columns = InitCol .FontItalic = False 'END THE OVERLAY vp.EndOverlay() Next End With[zip filename="vpHdrFtrTest.zip"]https://gccontent.blob.core.windows.net/forum-uploads/file-fe6b4099-b9c5-487e-a74a-710b878a676a.zip[/zip]