Solved

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

Posted on 2008-10-22
5
1,116 Views
Last Modified: 2008-10-22
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
Comment
Question by:Crazy_Penguins
  • 3
5 Comments
 
LVL 26

Expert Comment

by:Anurag Thakur
ID: 22778820
is this link of any help
http://support.microsoft.com/kb/313723
0
 
LVL 19

Accepted Solution

by:
Stephen Manderson earned 500 total points
ID: 22778923
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
 

Author Comment

by:Crazy_Penguins
ID: 22780912
Type 'RegistryKey' is not defined. - any thoughts?

0
 

Author Comment

by:Crazy_Penguins
ID: 22780925
Found:
Dim RegKey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(RegKeyPath, KeyWritable)

Open in new window

0
 

Author Comment

by:Crazy_Penguins
ID: 22780968
Works great, thanks.
0

Featured Post

MIM Survival Guide for Service Desk Managers

Major incidents can send mastered service desk processes into disorder. Systems and tools produce the data needed to resolve these incidents, but your challenge is getting that information to the right people fast. Check out the Survival Guide and begin bringing order to chaos.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Datagridview column when exported to Excel changes vb.net 1 15
VB.Net WebRequest Code from JSON curl 9 18
MVC DDL Json Not Binding to Model 2 13
vb.net class 3 17
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.

825 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question