FIX: ScaleMode for Printer Object Can't Create Custom Scale

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new Standard EXE project. Form1 is created by default.
2. Add a CommandButton (Command1) to Form1.
3. Add the following code to the Click event for Command1:

         Private Sub Command1_Click()
   
            With Printer
   
               .ScaleMode = vbUser               'Create a user-defined custom
               .ScaleWidth = 8.5                 'scale for 8.5" x 11" paper.
               .ScaleHeight = 11
   
               Printer.Circle (4.25, 5.5), 1     'Print a circle in the
                                                 'center of the page.
   
               .CurrentX = 3.5                   'Print the text at user-
               .CurrentY = 2                     'defined coordinates x = 3.5
               Printer.Print "This is a test"    'and y = 2.
   
               .EndDoc                           'End the print job.
   
               Debug.Print Printer.ScaleMode     'Display 0 (vbUser).
   
            End With
   
         End Sub
   
   						

4. Press the F5 key to run. Click the CommandButton and note that in the printed output, the circle is not printed in the center of the page as you would expect. Also note that the text is not printed at the custom coordinates (3.5,2) as expected.

Workaround

   Private Sub Command1_Click()

      With Printer

         Printer.Scale (0, 0)-(8.5, 11)    'Create a user-defined custom
                                           'scale for 8.5" x 11" paper.

         Printer.Circle (4.25, 5.5), 1     'Print a circle in the
                                           'center of the page.

         .CurrentX = 3.5                   'Print the text at user-
         .CurrentY = 2                     'defined coordinates x = 3.5
         Printer.Print "This is a test"    'and y = 2.

         .EndDoc                           'End the print job.

      End With
   End Sub