Microsoft KB Archive/150421

= BUG: Cannot Change DBCS Font Size When Printing =

Article ID: 150421

Article Last Modified on 6/29/2004

-

APPLIES TO


 * 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.



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

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.