Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1305
  • Last Modified:

How to remove Head/Foot sections from WebBrowser Print...

I am using a web browser to print from my VB.NET application, however whenever I print, it places the page name on the top, page x-of-y on the top, the URL, and Date on the bottom.  I don't want to print this and need to know how to remove this.  For a basic example, drop a web browser onto a form, and add the code below..

Thanks, Andrew
me.webbrowser1.navigate("http://www.google.com")
me.webbrowser1.showprintdialog()

Open in new window

0
Crazy_Penguins
Asked:
Crazy_Penguins
  • 3
1 Solution
 
Anurag ThakurTechnical ManagerCommented:
is this link of any help
http://support.microsoft.com/kb/313723
0
 
Stephen MandersonSoftware EngineerCommented:
Hi there

Heres how I do it.

Regards
Steve
        Dim RegKeyPath As String = "Software\\Microsoft\\Internet Explorer\\PageSetup"
        Dim KeyWritable As Boolean = True
 
        Dim RegKey As RegistryKey = Registry.CurrentUser.OpenSubKey(RegKeyPath, KeyWritable)
 
        Dim TopMargin As String = "margin_top"
        Dim BottomMargin As String = "margin_bottom"
        Dim RightMargin As String = "margin_right"
        Dim LeftMargin As String = "margin_left"
        Dim Footer As String = "footer"
        Dim FooterValue As Object = ""
        Dim Header As String = "header"
        Dim HeaderValue As Object = ""
 
        If RegKey IsNot Nothing Then
 
            'Can be used to store the default values
            'Dim TmpTopMargin As String = RegKey.GetValue(TopMargin)
            'Dim TmpBottomMargin As String = RegKey.GetValue(BottomMargin)
            'Dim TmpRightMargin As String = RegKey.GetValue(RightMargin)
            'Dim TmpLeftMargin As String = RegKey.GetValue(LeftMargin)
            'Dim TmpFooter As String = RegKey.GetValue(Footer)
            'Dim TmpFooterValue As Object = RegKey.GetValue(FooterValue)
            'Dim TmpHeader As String = RegKey.GetValue(Header)
            'Dim TmpHeaderValue As Object = RegKey.GetValue(HeaderValue)
 
            RegKey.SetValue(Footer, FooterValue)
            RegKey.SetValue(Header, HeaderValue)
            RegKey.SetValue(TopMargin, CDbl("0.25"))
            RegKey.SetValue(BottomMargin, CDbl("0.25"))
            RegKey.SetValue(RightMargin, CDbl("0.25"))
            RegKey.SetValue(LeftMargin, CDbl("0.25"))
 
            Me.WebBrowser1.ShowPrintDialog()
 
            'Can be used to set values back
            'RegKey.SetValue(Footer, TmpFooterValue)
            'RegKey.SetValue(Header, TmpHeaderValue)
            'RegKey.SetValue(TopMargin, CDbl(TmpTopMargin))
            'RegKey.SetValue(BottomMargin, CDbl(TmpBottomMargin))
            'RegKey.SetValue(RightMargin, CDbl(TmpRightMargin))
            'RegKey.SetValue(LeftMargin, CDbl(TmpLeftMargin))
 
        End If
 
        RegKey.Close()

Open in new window

0
 
Crazy_PenguinsAuthor Commented:
Type 'RegistryKey' is not defined. - any thoughts?

0
 
Crazy_PenguinsAuthor Commented:
Found:
Dim RegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(RegKeyPath, KeyWritable)

Open in new window

0
 
Crazy_PenguinsAuthor Commented:
Works great, thanks.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now