vsPrint VB.Net Header Footer text do not print

vsPrint VB.Net Header Footer text do not print

Posted by: SatishMatani on 17 May 2020, 5:26 am EST

• 

  SatishMatani

  • Post Options:
  • Link
    Copy

  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]
  

• 

  SatishMatani

  • Post Options:
  • Link
    Copy

  Posted 18 May 2020, 8:12 am EST

  Never mind. Figured it out.
  
  I guess I need to use .TextBox in VB.Net instead of just .Text used in VB6.

• 

  SatishMatani

  • Post Options:
  • Link
    Copy

  Posted 18 May 2020, 11:16 am EST

  No, that was not it. .Textbox and .Text are two different things.
  
  How does .Text work in VB.Net?

• 

  Pragati.Kaushik

  

  • Post Options:
  • Link
    Copy

  Posted 18 May 2020, 8:47 pm EST

  Hi Satish,

  You should use VSPrinter’s Header and Footer properties for the purpose:

  vp.Header = "T H I S  I S  H E A D E R"
  vp.Footer = "Page " & .CurrentPage & " of " & .PageCount
  

  and, this would be enclosed between StartDoc and EndDoc methods.

  Please refer the following documentation links for detailed information on these properties:
  
  https://help.grapecity.com/componentone/NetHelp/vsview8/webframe.html#headerproperty.html
  
  https://help.grapecity.com/componentone/NetHelp/vsview8/footerproperty.html

  Thanks,
  
  Pragati

• 

  SatishMatani

  • Post Options:
  • Link
    Copy

  Posted 19 May 2020, 1:24 am EST

  Hi Pragati,

  I have complex header that includes drawing logo, several lines and text. vp.header just does not work well with this complex header.

  Besides, the question regarding Text property still remains as I am also using that in main body in addition to Paragraph property. The Text property does not work. Please let me know how I can use Text property in VB.Net.

  Thank you and hope you are staying safe.

• 

  Pragati.Kaushik

  

  • Post Options:
  • Link
    Copy

  Posted 19 May 2020, 10:32 pm EST

  Hi Satish,

  Yes, I am good. Thank you for asking.
  
  The ActiveX wrapper adds ctl to a few properties, such as Text, so use CtlText instead. For example, this will work:

  vp.CtlText = "Test"
  

  Thanks. Stay safe and healthy.