Work with PrintForm component

Question

1.00/5 (2 votes)

See more:

Hello!

I use PrintForm component for printing my winform.

The property myForm.FormBorderStyle is set None.

How to calculate the size of the form to make it fit on A4?

Thanks!!!

Posted 22-Apr-14 0:58am

Makso_2012

Add a Solution

Comments

Sergey Alexandrovich Kryukov 22-Apr-14 9:08am

Please don't re-post; this is considered as abuse. Use the page of your original question, "Improve question".
—SA

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

sreeyush sudhakaran · Answer 1 · 2014-04-24T07:35:00

Solution 1

Dim Width As Integer
Dim Height As Integer

Width =Me.width
Height=Me.Height

if Width*Height==500990
MsgBox("This is A4 72 PPI")

See paper size of A4

http://www.a4papersize.org/a4-paper-size-in-pixels.php[^]

Posted 24-Apr-14 7:35am

sreeyush sudhakaran

v2

Comments

Makso_2012 25-Apr-14 11:35am

Thanks for the link! It will be very useful!

Can You help me to solve this problem?

I found a formula for how to calculate the size of the form. Inches multiplied by dpi screen.
I am using this formula in my solution. But when I pass the form to the PrintForm component, it does not stretch bottom. solution below.

Makso_2012 25-Apr-14 12:26pm

Oh! I found the problem!

The height of the WinForm is not set more than 788. Maybe because it is a MDIChildren.....

Makso_2012 · Answer 2 · 2014-04-25T05:41:00

VB

Dim PrintForm1 As New Microsoft.VisualBasic.PowerPacks.Printing.PrintForm()

        PrintForm1.PrintAction = System.Drawing.Printing.PrintAction.PrintToPreview

        PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Left = 0
        PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Top = 0
        PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Right = 0
        PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Bottom = 0

        Dim g As Graphics = Graphics.FromHwnd(IntPtr.Zero)

        frm.Size = New Size(CInt(21 / 2.54 * g.DpiX), CInt(29.7 / 2.54 * g.DpiY))

        PrintForm1.Print(frm, PowerPacks.Printing.PrintForm.PrintOption.ClientAreaOnly)