DOCUMENT:Q173074  26-AUG-1997  [vbwin]
TITLE   :PRB: Multiple Visual Basic 5.0 Printouts Are Not the Same
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0
OPER/SYS:WINDOWS
KEYWORDS:vb5all kbprint

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Learning, Professional, and Enterprise Editions
   for Windows, version 5.0
---------------------------------------------------------------------

SYMPTOMS
========

When you print what should be identical copies of the same print job, the
pages do not print the same. Different fonts, text in the wrong place, and
multiple blank pages are typical.

CAUSE
=====

The Visual Basic 5.0 Printer Object is not fully reset by EndDoc method.
The values of the ScaleMode and a few other properties are inherited by
subsequent documents unless the application is restarted.

RESOLUTION
==========

To work around this behavior, reset the ScaleMode and other properties to
their original values. The code below enumerates all of the properties of
the printer object and displays their values on the Immediate pane. During
your debug cycle, call the code before each print job and compare the
results. You can then modify your code to correctly reset the appropriate
property values:

   Sub PrntProp()
       Debug.Print "ColorMode   ", Printer.ColorMode
       Debug.Print "Copies   ", Printer.Copies
       Debug.Print "CurrentX   ", Printer.CurrentX
       Debug.Print "CurrentY   ", Printer.CurrentY
       Debug.Print "DeviceName   ", Printer.DeviceName
       Debug.Print "DrawMode   ", Printer.DrawMode
       Debug.Print "DrawStyle   ", Printer.DrawStyle
       Debug.Print "DrawWidth   ", Printer.DrawWidth
       Debug.Print "DriverName   ", Printer.DriverName
       Debug.Print "Duplex   ", Printer.Duplex
       Debug.Print "FillColor   ", Printer.FillColor
       Debug.Print "FillStyle   ", Printer.FillStyle
       Debug.Print "Font.Bold", Printer.Font.Bold
       Debug.Print "Font.Charset", Printer.Font.Charset
       Debug.Print "Font.Italic", Printer.Font.Italic
       Debug.Print "Font.Name", Printer.Font.Name
       Debug.Print "Font.Size", Printer.Font.Size
       Debug.Print "Font.Strikethr "; Printer.Font.Strikethrough
       Debug.Print "Font.Underline "; Printer.Font.Underline
       Debug.Print "Font.Weight", Printer.Font.Weight
       Debug.Print "hDC   ", Printer.hDC
       Debug.Print "Height   ", Printer.Height
       Debug.Print "Orientation", Printer.Orientation
       Debug.Print "Page   ", Printer.Page
       Debug.Print "PaperBin   ", Printer.PaperBin
       Debug.Print "PaperSize   ", Printer.PaperSize
       Debug.Print "Port   ", Printer.Port
       Debug.Print "PrintQuality", Printer.PrintQuality
       Debug.Print "RightToLeft", Printer.RightToLeft
       Debug.Print "ScaleHeight", Printer.ScaleHeight
       Debug.Print "ScaleLeft   ", Printer.ScaleLeft
       Debug.Print "ScaleTop   ", Printer.ScaleTop
       Debug.Print "ScaleWidth   ", Printer.ScaleWidth
       Debug.Print "ScaleMode   ", Printer.ScaleMode
       Debug.Print "TrackDefault", Printer.TrackDefault
       Debug.Print "TwipsPerPixelX"; Printer.TwipsPerPixelX
       Debug.Print "TwipsPerPixelY"; Printer.TwipsPerPixelY
       Debug.Print "Width   ", Printer.Width
       Debug.Print "Zoom   ", Printer.Zoom
   End Sub

MORE INFORMATION
================

Steps to Reproduce Behavior
---------------------------

The following code is based on the example in the Visual Basic 5.0 Help
file. Note that after the Printer.EndDoc, the Printer Object Properties are
not reset:

    Debug.Print Printer.ScaleTop
    Debug.Print Printer.ScaleLeft
    Debug.Print Printer.ScaleWidth
    Debug.Print Printer.ScaleHeight

    Printer.ScaleTop = -1  ' Set scale for top of grid.
    Printer.ScaleLeft = -1 ' Set scale for left of grid.
    Printer.ScaleWidth = 2 ' Set scale (-1 to 1).
    Printer.ScaleHeight = 2
    Printer.Line (-1, 0)-(1, 0)    ' Draw horizontal line.
    Printer.Line (0, -1)-(0, 1)    ' Draw vertical line.
    For I = -1 To 1 Step 0.05
        Printer.PSet (I * Rnd, I * Rnd)    ' Draw a point.
    Next I
    Printer.EndDoc

    Debug.Print Printer.ScaleTop
    Debug.Print Printer.ScaleLeft
    Debug.Print Printer.ScaleWidth
    Debug.Print Printer.ScaleHeight
======================================================================
Keywords          : vb5all kbprint
Version           : WINDOWS:5.0
Platform          : WINDOWS
Issue type        : kbprb

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1997.