FIX: The Zoom option of the System.Windows.Forms.PrintDialog class does not work in the Microsoft .NET Framework 1.0 (830730)

MORE INFORMATION

Steps to reproduce the problem

1. Start Microsoft Visual Studio .NET.
2. On the File menu, point to New, and then click Project.
3. In the Project Types section, click Visual Basic Projects.
4. In the Templates section, click Windows Application.
5. In the Name box, type Q830730, and then click OK.
   
   By default, the form that is named Form1.vb is created.
6. On the View menu, click Code.
7. Replace all the existing code in Form1.vb with the following code:
   

   Imports System.Drawing.Printing
   Public Class Form1
       Inherits System.Windows.Forms.Form
   
   #Region " Windows Form Designer generated code "
   
       Public Sub New()
           MyBase.New()
   
           'This call is required by the Windows Form Designer.
           InitializeComponent()
   
           'Add any initialization after the InitializeComponent() call.
   
       End Sub
   
       'The form overrides dispose to clean up the component list.
       Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
           If disposing Then
               If Not (components Is Nothing) Then
                   components.Dispose()
               End If
           End If
           MyBase.Dispose(disposing)
       End Sub
   
       'Required by the Windows Form Designer.
       Private components As System.ComponentModel.IContainer
   
       'The following procedure is required by the Windows Form Designer.
       'The following procedure can be modified by using the Windows Form Designer.  
       'Do not modify the following procedure by using the code editor.
       Friend WithEvents Button1 As System.Windows.Forms.Button
       <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
           Me.Button1 = New System.Windows.Forms.Button
           Me.SuspendLayout()
           '
           'Button1
           '
           Me.Button1.Location = New System.Drawing.Point(32, 80)
           Me.Button1.Name = "Button1"
           Me.Button1.Size = New System.Drawing.Size(224, 64)
           Me.Button1.TabIndex = 0
           Me.Button1.Text = "Print test"
           '
           'Form1
           '
           Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
           Me.ClientSize = New System.Drawing.Size(292, 270)
           Me.Controls.Add(Me.Button1)
           Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
           Me.Name = "Form1"
           Me.Text = "Form1"
           Me.ResumeLayout(False)
   
       End Sub
   
   #End Region
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Dim pd As New PrintDocument
   
           Dim dlgPrint As New PrintDialog
           dlgPrint.PrinterSettings = Nothing
   
           If dlgPrint.ShowDialog = DialogResult.OK Then
               AddHandler pd.PrintPage, AddressOf PrintPage
   
               pd.PrinterSettings = dlgPrint.PrinterSettings
   
               pd.Print()
           End If
       End Sub
       Private Sub PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
           e.Graphics.DrawString("Test Print", Me.Font, Brushes.Black, 10, 10)
   
           e.HasMorePages = False
       End Sub
   End Class

8. On the Build menu, click Build Solution.
9. On the Debug menu, click Start.
   
   Form1.vb starts.

1. On Form1.vb, click Print test.
   
   This is "Form1.vb" that you created in step 5 in the previous set of steps.
2. Set Zoom to 200% or to 50%.
   
   Note This operation may be different, depending on your printer.
3. Print a test page.
   
   You expect the test page to appear with a 200% zoom or a 50% zoom. However, the problem occurs that is mentioned in the "Symptoms" section.