Print Form
Question
Answers
All replies
-
Perhaps this will help, it is basically a mix of the two answers that i posted in the two links we already gave you. It requires you to set the Form's AutoScroll property to True and then place a Panel in the form. Set the Panel's height to 1100 and it's width as desired. Place all your controls from the Form into the Panel.
Then try the code below. It will scale the image if needed so that it fits in one printed page. I had two labels and 1 button in my panel. My Panel's Size is 772x1100 and my Form's Size is 805x486. I placed one label at the Top and one label at the Bottom of the Panel. The Button is in the middle of the Panel.
Example Code...
Imports System.Drawing.Printing Public Class Form1 Private WithEvents PrintDoc As New PrintDocument Private FormImage As Bitmap = Nothing Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If FormImage IsNot Nothing Then FormImage.Dispose() FormImage = New Bitmap(Panel1.Width, Panel1.Height) Panel1.DrawToBitmap(FormImage, New Rectangle(0, 0, FormImage.Width, FormImage.Height)) With PrintDoc .DefaultPageSettings.PaperSize = (From s As PaperSize In PrintDoc.PrinterSettings.PaperSizes.Cast(Of PaperSize) Where s.RawKind = PaperKind.A4).FirstOrDefault 'sets the paper size to A4 .DefaultPageSettings.Margins = New Margins(20, 20, 20, 20) 'set the left, right, top, bottom margins for the printed '.PrinterSettings.PrinterName = "Microsoft XPS Document Writer" 'set the name of the printer if you do not want the system's default printer used .Print() End With End Sub Private Sub PrintDoc_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDoc.PrintPage Dim CenterBounds As Rectangle CenterBounds.X = e.MarginBounds.Left + ((e.MarginBounds.Width \ 2) - (FormImage.Width \ 2)) CenterBounds.Y = e.MarginBounds.Top + ((e.MarginBounds.Height \ 2) - (FormImage.Height \ 2)) CenterBounds.Width = FormImage.Width CenterBounds.Height = FormImage.Height Dim ratio As Double = FormImage.Width / FormImage.Height If CenterBounds.Width > e.MarginBounds.Width Then CenterBounds.Width = e.MarginBounds.Width CenterBounds.Height = CInt(CenterBounds.Width / ratio) CenterBounds.X = e.MarginBounds.Left CenterBounds.Y = e.MarginBounds.Top + ((e.MarginBounds.Height \ 2) - (CenterBounds.Height \ 2)) End If If CenterBounds.Height > e.MarginBounds.Height Then CenterBounds.Height = e.MarginBounds.Height CenterBounds.Width = CInt(CenterBounds.Height * ratio) CenterBounds.Y = e.MarginBounds.Top CenterBounds.X = e.MarginBounds.Left + ((e.MarginBounds.Width \ 2) - (CenterBounds.Width \ 2)) End If e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic e.Graphics.DrawImage(FormImage, CenterBounds) End Sub End ClassHere is my example form scrolled to the top at run-time.
Here is my example form scrolled to the bottom...
And here is the form scaled and printed to an A4 page...
If you say it can`t be done then i`ll try it
-
Thx for this use full help dear
but scrollable is not working yet
i used these code as you give above.
please give a mailing id to mail you a part of my project, which contains two forms.
first is form1 which i want to print on Follio paper size with scroll able
and 2nd one is a receipt form which i want to print on half of the A4 paper with center bound.
-
Thx dear
it is working for scrollable 100% first time like below
again shows error of bound targets
and also center bound with page size like folio , A4 or my customized size like half of A4
- Edited by DearBaba Friday, January 19, 2018 6:33 PM
-
Thx dear
it is working for scrollable 100% first time like below
again shows error of bound targets
and also center bound with page size like folio , A4 or my customized size like half of A4
Baba,
If you put your mouse pointer over the word rect in the Dim rect line the debug intellisense? will show the values for rect. If not look at the ctrl.left etc values. Follow the values backwards up the code and try to figure out what is causing the problem. One of the values will be zero or infinity or something and its just a matter of working that out.
-
Its OK
first is form1 which i want to print on Follio paper size with scroll able
and 2nd one is a receipt form which i want to print on half of the A4 paper with center bound.
and resutt of printing is out of page when from left side a big space is empty. Marines are left = 0 right =0
- Edited by DearBaba Saturday, January 20, 2018 4:04 PM
-
How does ctrl.top get to -84? Is it the scroll offset for the panel or something? Keep going back up the code.
PS where does ymax come from? If it is zero or something then your bmp is not large enough?
- Edited by tommytwotrain Saturday, January 20, 2018 3:25 PM
-
That is because you have the Panel's AutoScroll property set to True and you are scrolling the panel, not the Form.
What you need to do is set the size of the panel so that all the controls fit in it. Do not resize it smaller than that and do not set it's AutoScroll property to True either. Then you can set the Form's AutoScroll property to True. Then i believe you will find that my example, and Tom's example will work.
I believe this is why you said my example did not work for you, you did not follow the instructions to set the Panel height to 1100 and set the Form's AutoScroll property to True.
If you say it can`t be done then i`ll try it
- Edited by IronRazerz Saturday, January 20, 2018 3:54 PM
-
Baba,
Here is a more basic example for starters if you need it.
See how I draw the default margins which are 1 inch wide or (100 hundredths of an inch) with a dashed line? Then I offset the left and right margin by 200 hundredths of an inch and draw the solid rect.
Public Class Form6 Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load Text = "Print Margins Example" 'add the print document and print preview controls to the form 'you can also do this by dragging an dropping the controls from the toolbox 'but this is just as easy and then others dont have to do it to run the example Dim pd As New System.Drawing.Printing.PrintDocument 'add the sub routine to call when ready to print AddHandler pd.PrintPage, AddressOf OnPrintPage 'add and print preview Dim preview As New PrintPreviewDialog preview.Document = pd 'tell the preview what is being printed 'showing the priview dialog will fire the printPage event 'and call the print event 'to print on paper (or selected printer) click the print button 'on the print dialog preview.ShowDialog() End Sub Private Sub OnPrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Using p As New Pen(Color.Black, 1) p.DashStyle = Drawing2D.DashStyle.Dash 'draw the margins e.Graphics.DrawRectangle(p, e.MarginBounds) 'draw a rect inside the margins p.Width = 5 p.DashStyle = Drawing2D.DashStyle.Solid Dim rect As New Rectangle(e.MarginBounds.X + 200, e.MarginBounds.Y, e.MarginBounds.Width - 400, e.MarginBounds.Height) e.Graphics.DrawRectangle(p, rect) End Using End Sub End Class
- Edited by tommytwotrain Saturday, January 20, 2018 8:20 PM
-
Private Sub PrintDoc_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDoc.PrintPage Dim TopCenterBounds As Rectangle TopCenterBounds.X = e.MarginBounds.Left + ((e.MarginBounds.Width \ 2) - (FormImage.Width \ 2)) TopCenterBounds.Y = e.MarginBounds.Top TopCenterBounds.Width = FormImage.Width TopCenterBounds.Height = FormImage.Height Dim ratio As Double = FormImage.Width / FormImage.Height If TopCenterBounds.Width > e.MarginBounds.Width Then TopCenterBounds.Width = e.MarginBounds.Width TopCenterBounds.Height = CInt(TopCenterBounds.Width / ratio) TopCenterBounds.X = e.MarginBounds.Left End If e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic e.Graphics.DrawImage(FormImage, TopCenterBounds) End Sub End ClassRazerz,
I studied these codes and example codes last night
These are ok for receipt for because its bounded Vertically = Top and Horizontally = Center , which is needed half of A4 type paper.
But again I got 1st form of scroll able Panel is working ok Bounded at center but printing result is not ok because paper sizes Folio / A4 are large sizes papers and contents is small, so I got this:
Is this possible to scale up this yellow colored panel to this black border without resizing it?
- Edited by DearBaba Sunday, January 21, 2018 11:08 AM
-
Tommy,
Yes got it, this is an other very simple codes to bound, thx for this.
Now I got my contents are small and area of paper is large size so I want to scale them up as in picture, Do you have any idea how I can scale them up?
-
Tommy,
Yes got it, this is an other very simple codes to bound, thx for this.
Now I got my contents are small and area of paper is large size so I want to scale them up as in picture, Do you have any idea how I can scale them up?
Yes. If you really want to do that. If you scale up you will lose resolution and your graphic image will lose quality and get blocky. You should make the original panel size the size ratio you want the image to be when printed as Razerz did. What you show in your image of what you want really seems to be changing the margins. You need to do that for the original panel image and then the printer settings I believe but I don't have the code you are using. I am sure Razerz can show it if that is what you mean as it is not clear to me exactly what you want from Razerz example.
Meanwhile, here is an example of how to set the margins to new values. This shows how to center a half size a4 image (with 1 inch top and bottom margin) on a full size a4 printout using only the margins. If you want additional margins on the left and right you have to add that. This will print to the edge of the half size a4 paper on the left and right side, and print a 1 inch margin top and bottom (assuming you add the code to print the image you capture from the panel).
So, this is just an example of how to set the margins to new values. Not how to print the image.
PS I say a4 but this works for whatever paper size is set for pd.
Public Class Form6 Private Sub Form6_Load(sender As Object, e As EventArgs) Handles MyBase.Load Text = "Print Margins Example 2" 'add the print document and print preview controls to the form 'you can also do this by dragging an dropping the controls from the toolbox 'but this is just as easy and then others dont have to do it to run the example Dim pd As New System.Drawing.Printing.PrintDocument 'add the sub routine to call when ready to print AddHandler pd.PrintPage, AddressOf OnPrintPage 'calc margin width to center half size a4 on normal a4 Dim w As Integer = pd.DefaultPageSettings.PaperSize.Width Dim w2 As Integer = CInt(w / 2) Dim mrg As Integer = CInt((w - w2) / 2) 'hundredths of inch 'set the new margin for left and right pd.DefaultPageSettings.Margins = New Printing.Margins(mrg, mrg, 100, 100) 'add and print preview Dim preview As New PrintPreviewDialog preview.Document = pd 'tell the preview what is being printed 'showing the priview dialog will fire the printPage event 'and call the print event 'to print on paper (or selected printer) click the print button 'on the print dialog preview.ShowDialog() End Sub Private Sub OnPrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Using p As New Pen(Color.Black, 1) p.DashStyle = Drawing2D.DashStyle.Dash 'draw the margins e.Graphics.DrawRectangle(p, e.MarginBounds) End Using End Sub End Class
- Edited by tommytwotrain Sunday, January 21, 2018 12:50 PM
