Format A4 size and form to print everything: labels, combobox, TextBox, everything ...

Question

My friends,

I have a problem!
I'm developing a project and would like to format the form, in order to remain the size of an A4 sheet, and print everything that appears there.

How do I?

greetings

Answer 1

You have to design the form so it fits in the bounds of an A4 sheet.  You can then print it using the PrintForm component.

Answer 2

Hi,

You can have all controls in a panel and that panel you can print.

In print dialog box you can choose page type.

Answer 3

You can print every Form on an A4 sheet. It has to be scaled anyway.

---

Armin

Answer 4

You can print every Form on an A4 sheet. It has to be scaled anyway.

---

Armin

Scaling a form for printing usually makes it unacceptable for quality.  You want to design it to use as much of the A4 sheet as possible.

Answer 5

Scaling a form for printing usually makes it unacceptable for quality.  You want to design it to use as much of the A4 sheet as possible.

How can you do it without knowing the resolution of both devices? You can only say the larger the form the better the quality. Usually zooming in is a quality loss.

---

Armin

Answer 6

"How can you do it without knowing the resolution of both devices?"

The size of an A4 sheet is welll known.

Answer 7

I said resolution of devices, not size of the paper.

---

Armin

Answer 8

Hello friend,

Where do I change the scale to put A4 size.

There is some code that does this?

Answer 9

Have you tried John's first suggestion?

---

Armin

Answer 10

I said resolution of devices, not size of the paper.

---

Armin

That's the point.  The resolution of the devices is irrelevant.  The Form will be the same size on all devices.  For what it's worth, the printer resolution is always 1/100 inch. 

Answer 11

I said resolution of devices, not size of the paper.

Our misunderstanding is probably that you consider dpi settings for both device, but I say you don't have to, so you can scale a 50x50px Form to A4 as well as a 2560x1600 form.

EDIT: dpi settings for a screen are useless anyway. I'd have 101.6 ppi that can not be even set.

---

Armin

Answer 12

The problem is how to design?
What measures? Where to insert them without exceeding the A4?

Answer 13

I said resolution of devices, not size of the paper.

Our misunderstanding is probably that you consider dpi settings for both device, but I say you don't have to, so you can scale a 50x50px Form to A4 as well as a 2560x1600 form.

---

Armin

The result of most discussions like this is circular:

"Scaling a form for printing usually makes it unacceptable for quality.  You want to design it to use as much of the A4 sheet as possible"

Answer 14

Friend, you can put print screen or sample code?

Answer 15

Friend, you can put print screen or sample code?

An A4 sheet is 8.3 X 11.7 inches or 830 X 1170 display units.  Make your form 830 X 1170 for portrait or 1170 X 830 for landscape.
Adjust your form for any desired margins.

Answer 16

Friend, I have some difficulty. You can put the example screen print vb?

Answer 17

The point is that you can't "design for A4" as long as you don't know which scaling is performed when printing. This implies that scaling is unkown whereas you imply dpi aware scaling. No need to be as kind as you are often just because I try to explain our misunderstanding. Sure, quality depends on scaling, but that's nothing new and doesn't have to be repeated.

---

Armin

Answer 18

An A4 sheet is 8.3 X 11.7 inches or 830 X 1170 display units.  Make your form 830 X 1170 for portrait or 1170 X 830 for landscape.

Adjust your form for any desired margins.

Why not make the Form bigger to get an even better quality? Printers do not have a fixed 100 dpi resolution BTW.

---

Armin

Answer 19

Vb program in 2008 as it set up? Can you put here sample picture?

Answer 20

Vb program in 2008 as it set up? Can you put here sample picture?

Answer 21

Friend, I have some difficulty. You can put the example screen print vb?

You can't design a Form to make it fit A4 becaues you can stretch or shrinken every Form to A4.

---

Armin

Answer 22

Yes, but I set up form1, to make it the size of an A4 sheet?

Answer 23

Yes, but I set up form1, to make it the size of an A4 sheet?

Answer 24

Yes, but I set up form1, to make it the size of an A4 sheet?

I'm afraid, this is not a question. Do you mean "how to set up the form..."? What you can do is use the same aspect ratio as an A4 sheet if you don't want to have borders at any side. So, design your form so that it's AR is 29.7 / 21. For example 594x420 pixels.

EDIT: But be aware that a printer can have not-printable borders.

Printing is another issue. It depends on how you do it. As I've asked you before: Have you already tried John's first suggestion? ("PrintForm component")

---

Armin

Answer 25

Answer 26

Answer 27

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
        ' If you don't want the print button to print the print button
        Button1.Visible = False
        ' Set the PrintAction to display a Print Preview dialog
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        ' This prints a copy of the form as it appears in the PrintPreview
        PrintForm1.Print()
        ' Display the print button again on the form
        Button1.Visible = True
    End Sub


    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click


    End Sub
End Class

Answer 28

Why does this happen. Why is cutting back on the right side? How do I set form1 toA4 and then to print?

Answer 29

Why does this happen. Why is cutting back on the right side? How do I set form1 toA4 and then to print?

I don't know how to use the PrintForm component. Ask John. He's the specialist.

---

Armin

Answer 30

Here's and example:

Imports Microsoft.VisualBasic.PowerPacks.Printing
Imports System.Drawing.Printing
Imports System.IO
Public Class Test
  Dim PF As New PrintForm
  Dim TB As New TextBox
  Dim WithEvents Tmr As New Timer
  Dim A4 As Size = New Size(830, 1170)
  Protected Overrides Sub OnLoad(e As System.EventArgs)
    MyBase.OnLoad(e)
    TB.Multiline = True
    TB.Font = New Font("Courier", 12)
    TB.Text = File.ReadAllText("..\..\Form1.vb")
    TB.Dock = DockStyle.Fill
    TB.Parent = Me
    PF.PrintAction = Printing.PrintAction.PrintToPreview
    PF.PrinterSettings.DefaultPageSettings.Landscape = True
    PF.PrinterSettings.DefaultPageSettings.Margins = New Margins(50, 50, 50, 50)
    Me.Size = New Size(A4.Height - 100, A4.Width - 100)
    PF.Form = Me
    Tmr.Start()
  End Sub
  Private Sub Tmr_Tick(sender As Object, e As EventArgs) Handles Tmr.Tick
    If Tmr.Tag Is Nothing Then
      Tmr.Tag = "Something"
      PF.Print()
    Else
      Tmr.Stop()
      For Each F As Form In Application.OpenForms
        If F.Text = "Print preview" Then F.ClientSize = A4
        Using Bmp As New Bitmap(A4.Width, A4.Height)
          F.DrawToBitmap(Bmp, New Rectangle(0, 0, A4.Width, A4.Height))
          Bmp.Save("Bmp.png")
        End Using
      Next
    End If
  End Sub
End Class

Answer 31

The print preview that gives as an example occupies an A4 sheet altogether?

Answer 32

Answer 33

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
        ' If you don't want the print button to print the print button
        Button1.Visible = False
        ' Set the PrintAction to display a Print Preview dialog
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        ' This prints a copy of the form as it appears in the PrintPreview
        PrintForm1.Print()
        ' Display the print button again on the form
        Button1.Visible = True
    End Sub
    Private Sub PrintForm1_QueryPageSettings(ByVal sender As Object, ByVal e As System.Drawing.Printing.QueryPageSettingsEventArgs) Handles PrintForm1.QueryPageSettings
        Dim newMargins As System.Drawing.Printing.Margins
        newMargins = New System.Drawing.Printing.Margins(10, 10, 10, 10)
        e.PageSettings.Margins = newMargins
    End Sub


End Class

Answer 34

With this code, which is somehow an adaptation of his, I got:
as shown in Figure fill an entire print preview, but as yet to see a part below.
How do I get full, also the part below?

Answer 35

With this code, which is somehow an adaptation of his, I got:
as shown in Figure fill an entire print preview, but as yet to see a part below.
How do I get full, also the part below?

Are you sure that Your Form is less than the size of an A4 sheet?  What is the size of the Form?

Answer 36

Vitor,

check this link:

http://social.msdn.microsoft.com/Forums/en-US/vbpowerpacks/thread/dbf1dbe8-dc21-4268-95f4-e92d0c8852db

Regars,

Answer 37

I'm still not sure, because print still nothing. But by appearance, seems to be an A4,but the print preview.

Many thanks for your input so far. I am currently studying and test all materials. You are precious to me.

hug

Answer 38

Many thanks for your input so far. I am currently studying and test all materials. You are precious to me.

hug

Answer 39

Many thanks for your input so far. I am currently studying and test all materials. You are precious to me.

hug

Answer 40

Many thanks for your input so far. I am currently studying and test all materials. You are precious to me.

hug

Answer 41

Many thanks for your input so far. I am currently studying and test all materials. You are precious to me.

hug

It's very nice of you, but please do not mark all replies as the answer. It can confuse readers looking for the answer.

---

Armin

Answer 42

Vitor,

If you still need help please post a picture and the size of your form and I will try to code something for you.

Good luck,

Answer 43

Ok friend.
Grateful for the tip.

Answer 44

Grateful friend.

Answer 45

Hi,

Please see this thread.>>

http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvb/thread/a90e81ae-4494-465e-83e8-076fe91fcaaa

---

---

---

Regards,

---

Click this link to see the NEW way of how to insert a picture into a forum post.

Installing VB6 on Windows 7

App Hub for Windows Phone & XBOX 360 developers.

---

Answer 46

Hi,

Have you set the margins?

And your form should be in panel whish will you print.

Answer 47

Can you help me, friend?

greetings

Answer 48

Can you help me, friend?

greetings

Answer 49

Vitor,

please use only one thread to discuss this. I have answered here:

http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/3c1ca07e-1a85-45f9-a8bf-ccc64f1758af

---

Armin

Answer 50

Hello, friend.

I am in need of your help in my thread:

Center the text of a combobox Does it help me?

greetings