KB150421 - BUG: Cannot Change DBCS Font Size When Printing

Article ID: 150421

Article Last Modified on 6/29/2004

Microsoft Visual Basic 4.0 Standard Edition
Microsoft Visual Basic 4.0 Professional Edition
Microsoft Visual Basic 4.0 Professional Edition
Microsoft Visual Basic 4.0 16-bit Enterprise Edition
Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
Microsoft Windows 95

This article was previously published under Q150421

SYMPTOMS

When using the localized Microsoft Visual Basic for Windows with Double- Byte Character Sets (DBCS), printing problems occur when printing on various printers with various fonts. This problem only occurs on Windows 95. The problem has been reproduced with all Japanese Fonts. The problem does not occur with the United States (US) version of Visual Basic 4.0.

RESOLUTION

Replace the Command_Click event code with the code shown below. This code works to address the problem:

   Private Sub Command1_Click()
      ' Workaround.
      x = printer.currentx
      y = printer.currenty
      printer.print
      printer.currentx = x
      printer.currenty = y

      printer.fontname = "‚l‚r ƒSƒVƒbƒN"
      printer.fontsize = 48
      printer.print "‚ ‚ ‚ ‚ ‚ "
      printer.enddoc
   End Sub

STATUS

Microsoft has confirmed this to be an issue in the Japanese version of Visual Basic version 4.0 for Windows 95. This may be an issue with other localized versions of Visual Basic 4.0. Microsoft is researching this issue and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

Steps to Reproduce Problem

Start a new project in the Japanese version of Visual Basic 4.0. Form1 is created by default.
Add a command button to Form1.

Add the following code to the Command1_Click event:

      Private Sub Command1_Click()
         printer.fontname = "‚l‚r ƒSƒVƒbƒN"
         printer.fontsize = 48
         printer.print "‚ ‚ ‚ ‚ ‚ "
         printer.enddoc
      End Sub

From the Run menu, select Start, or press the F5 key. Click the command button and note that the size of the printed character is not 48.

Additional query words: 4.00 vb4win vb4all KK Japan Far East win95

Keywords: kbbug kbprint kbpending KB150421