Solved

Print upside down text to printer

Posted on 1997-05-07
5
573 Views
Last Modified: 2013-12-03
Hello,
I have been working weeks on a solution to what seems like a simple task.

I am using VB Pro 3.0 and want to print two lines of text to the printer. One line right side up and the next line upside down.

I've thought about using an upside down Font, but I can't find any. I cant figure out how to edit a True Type font to create my own.

Any help would be great!

filesaver@prostar.com
0
Comment
Question by:filesaver
  • 3
  • 2
5 Comments
 

Author Comment

by:filesaver
Comment Utility
Edited text of question
0
 

Author Comment

by:filesaver
Comment Utility
Adjusted points to 200
0
 
LVL 7

Accepted Solution

by:
tward earned 200 total points
Comment Utility
Take a look at the TEXTOUT API call.  You can place Text anywhere and in anyway that you want.  Here are the API calls that are needed:

Public Const LF_FACESIZE = 32

Type LOGFONT
      lfHeight As Integer
      lfWidth As Integer
      lfEscapement As Integer
      lfOrientation As Integer
      lfWeight As Integer
      lfItalic As String * 1
      lfUnderline As String * 1
      lfStrikeOut As String * 1
      lfCharSet As String * 1
      lfOutPrecision As String * 1
      lfClipPrecision As String * 1
      lfQuality As String * 1
      lfPitchAndFamily As String * 1
      lfFaceName As String * LF_FACESIZE
End Type

Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer

Declare Function CreateFontIndirect Lib "GDI" (lpLogFont As LOGFONT) As Integer

Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer

Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer

Here it is in use:
   
Dim font As LOGFONT
Dim stextout As String
Dim nlen, nxtext, nytext, hfont As Integer
Dim status, prevfont, ret As Integer
Dim fontsize As Integer
Dim Position As Integer
Dim InnerCounter As Integer
Dim Temp As String
   
If tifftext.FontItalic = True Then
     
  font.lfItalic = 1
       
Else
       
   font.lfItalic = 0
       
End If
     
If tifftext.FontBold = True Then
     
  font.lfWeight = 900
       
Else
       
   font.lfWeight = 100
       
End If

' Escapement Rotates the Text '    
font.lfEscapement = Val(txtEscapement.Text)
font.lfFaceName = cmbFont.Text & vbNullChar
font.lfHeight = Val(txtHeight.Text)
font.lfWidth = Val(txtWidth.Text)

hfont = CreateFontIndirect(font)

prevfont = SelectObject(Printer.hDC, hfont)
 
nlen = Len(stextout) - 1
status = TextOut(Printer.hDC, nxtext, nytext, stextout, nlen)
0
 

Author Comment

by:filesaver
Comment Utility
Thank you so much for such a quick response!
I can get text to print upside down!!!! :) (yea) :)

I added the code to a project and with a little tweaking*

*FONTLOG Type statment lfItalic as string * 1 should read
lfItalic as integer
*Play with the printer.currentx coordinates to get the
rotated text to show up on the page
*Set stextout to " "

So far so good I can print text upside down or right side up depending on what I set font.lfescapement to (0 or 1800) and I can print any hight or width character.

The problem this has created is this.......
I can not control the font used.:(
I tried asigning a font to variable Font.lffacename by selecting from a list of all fonts in a combo box named Cmbfont. and I've tried just asigning the font directly to Font.lffacename.
I dont understand why you have to add a vbnullchar to it.
Is font.lffacename the correct variable to asign a font to?
   or will this API allow control to fonts?



I can get text to print upside down!!!! :) (yea) :)
0
 
LVL 7

Expert Comment

by:tward
Comment Utility
Font.lffacename is the correct field to change the font.  Any string going into a DLL needs to be null terminated, that is because most DLL's are written in C/C++ which requires that a string be null terminated so it knows where the end of the string is.

Below is a 32 bit description of logfont, it may help a little:
*******************************************************************

The LOGFONT structure defines the attributes of a font.
typedef struct tagLOGFONT { // lf  
   LONG lfHeight;
   LONG lfWidth;
   LONG lfEscapement;
   LONG lfOrientation;
   LONG lfWeight;
   BYTE lfItalic;
   BYTE lfUnderline;
   BYTE lfStrikeOut;
   BYTE lfCharSet;
   BYTE lfOutPrecision;
   BYTE lfClipPrecision;
   BYTE lfQuality;
   BYTE lfPitchAndFamily;
   TCHAR lfFaceName[LF_FACESIZE];
} LOGFONT;
 
Members
lfHeight
Specifies the height, in logical units, of the font's character cell or character. The character height value (also known as the em height) is the character cell height value minus the internal-leading value. The font mapper interprets the value specified in lfHeight in the following manner:
Value      Meaning
> 0      The font mapper transforms this value into device units and matches it against the cell height of the available fonts.
0      The font mapper uses a default height value when it searches for a match.
< 0      The font mapper transforms this value into device units and matches its absolute value against the character height of the available fonts.
 
For all height comparisons, the font mapper looks for the largest font that does not exceed the requested size.
This mapping occurs when the font is used for the first time.
For the MM_TEXT mapping mode, you can use the following formula to specify a height for a font with a given point size:
lfHeight = -MulDiv(PointSize, GetDeviceCaps(hDC, LOGPIXELSY), 72);
 
lfWidth
Specifies the average width, in logical units, of characters in the font. If lfWidth is zero, the aspect ratio of the device is matched against the digitization aspect ratio of the available fonts to find the closest match, determined by the absolute value of the difference.
lfEscapement
Specifies the angle, in tenths of degrees, between the escapement vector and the x-axis of the device. The escapement vector is parallel to the base line of a row of text.
Windows NT:
When the graphics mode is set to GM_ADVANCED, you can specify the escapement angle of the string independently of the orientation angle of the string's characters.
When the graphics mode is set to GM_COMPATIBLE, lfEscapement specifies both the escapement and orientation. You should set lfEscapement and lfOrientation to the same value.
Windows 95:
The lfEscapement member specifies both the escapement and orientation. You should set lfEscapement and lfOrientation to the same value.
lfOrientation
Specifies the angle, in tenths of degrees, between each character's base line and the x-axis of the device.
lfWeight
Specifies the weight of the font in the range 0 through 1000. For example, 400 is normal and 700 is bold. If this value is zero, a default weight is used.
The following values are defined for convenience:
Value      Weight
FW_DONTCARE      0
FW_THIN      100
FW_EXTRALIGHT      200
FW_ULTRALIGHT      200
FW_LIGHT      300
FW_NORMAL      400
FW_REGULAR      400
FW_MEDIUM      500
FW_SEMIBOLD      600
FW_DEMIBOLD      600
FW_BOLD      700
FW_EXTRABOLD      800
FW_ULTRABOLD      800
FW_HEAVY      900
FW_BLACK      900
 
lfItalic
Specifies an italic font if set to TRUE.
lfUnderline
Specifies an underlined font if set to TRUE.
lfStrikeOut
Specifies a strikeout font if set to TRUE.
lfCharSet
Specifies the character set. The following values are predefined:
 
ANSI_CHARSET
DEFAULT_CHARSET
SYMBOL_CHARSET
SHIFTJIS_CHARSET
GB2312_CHARSET
HANGEUL_CHARSET
CHINESEBIG5_CHARSET
OEM_CHARSET
Windows 95 only:
JOHAB_CHARSET
HEBREW_CHARSET
ARABIC_CHARSET
GREEK_CHARSET
TURKISH_CHARSET
THAI_CHARSET
EASTEUROPE_CHARSET
RUSSIAN_CHARSET
MAC_CHARSET
BALTIC_CHARSET
The OEM_CHARSET value specifies a character set that is operating-system dependent.
You can use the DEFAULT_CHARSET value to allow the name and size of a font to fully describe the logical font. If the specified font name does not exist, a font from any character set can be substituted for the specified font, so you should use DEFAULT_CHARSET sparingly to avoid unexpected results.
Fonts with other character sets may exist in the operating system. If an application uses a font with an unknown character set, it should not attempt to translate or interpret strings that are rendered with that font.
This parameter is important in the font mapping process. To ensure consistent results, specify a specific character set. If you specify a typeface name in the lfFaceName member, make sure that the lfCharSet value matches the character set of the typeface specified in lfFaceName.
lfOutPrecision
Specifies the output precision. The output precision defines how closely the output must match the requested font's height, width, character orientation, escapement, pitch, and font type. It can be one of the following values:
Value      Meaning
OUT_CHARACTER_PRECIS      Not used.
OUT_DEFAULT_PRECIS      Specifies the default font mapper behavior.
OUT_DEVICE_PRECIS      Instructs the font mapper to choose a Device font when the system contains multiple fonts with the same name.
OUT_OUTLINE_PRECIS      Windows NT: This value instructs the font mapper to choose from TrueType and other outline-based fonts.Windows 95: This value is not used.
OUT_RASTER_PRECIS      Instructs the font mapper to choose a raster font when the system contains multiple fonts with the same name.
OUT_STRING_PRECIS      This value is not used by the font mapper, but it is returned when raster fonts are enumerated.
OUT_STROKE_PRECIS      Windows NT: This value is not used by the font mapper, but it is returned when TrueType, other outline-based fonts, and vector fonts are enumerated. Windows 95: This value is used to map vector fonts, and is returned when TrueType or vector fonts are enumerated.
OUT_TT_ONLY_PRECIS      Instructs the font mapper to choose from only TrueType fonts. If there are no TrueType fonts installed in the system, the font mapper returns to default behavior.
OUT_TT_PRECIS      Instructs the font mapper to choose a TrueType font when the system contains multiple fonts with the same name.
 
Applications can use the OUT_DEVICE_PRECIS, OUT_RASTER_PRECIS, and OUT_TT_PRECIS values to control how the font mapper chooses a font when the operating system contains more than one font with a given name. For example, if an operating system contains a font named Symbol in raster and TrueType form, specifying OUT_TT_PRECIS forces the font mapper to choose the TrueType version. Specifying OUT_TT_ONLY_PRECIS forces the font mapper to choose a TrueType font, even if it must substitute a TrueType font of another name.
lfClipPrecision
Specifies the clipping precision. The clipping precision defines how to clip characters that are partially outside the clipping region. It can be one or more of the following values:
Value      Meaning
CLIP_DEFAULT_PRECIS      Specifies default clipping behavior.
CLIP_CHARACTER_PRECIS      Not used.
CLIP_STROKE_PRECIS      Not used by the font mapper, but is returned when raster, vector, or TrueType fonts are enumerated.Windows NT: For compatibility, this value is always returned when enumerating fonts.
CLIP_MASK      Not used.
CLIP_EMBEDDED      You must specify this flag to use an embedded read-only font.
CLIP_LH_ANGLES      When this value is used, the rotation for all fonts depends on whether the orientation of the coordinate system is left-handed or right-handed. If not used, device fonts always rotate counterclockwise, but the rotation of other fonts is dependent on the orientation of the coordinate system.For more information about the orientation of coordinate systems, see the description of the nOrientation parameter
CLIP_TT_ALWAYS      Not used.
 
lfQuality
Specifies the output quality. The output quality defines how carefully the graphics device interface (GDI) must attempt to match the logical-font attributes to those of an actual physical font. It can be one of the following values:
Value      Meaning
DEFAULT_QUALITY      Appearance of the font does not matter.
DRAFT_QUALITY      Appearance of the font is less important than when PROOF_QUALITY is used. For GDI raster fonts, scaling is enabled, which means that more font sizes are available, but the quality may be lower. Bold, italic, underline, and strikeout fonts are synthesized if necessary.
PROOF_QUALITY      Character quality of the font is more important than exact matching of the logical-font attributes. For GDI raster fonts, scaling is disabled and the font closest in size is chosen. Although the chosen font size may not be mapped exactly when PROOF_QUALITY is used, the quality of the font is high and there is no distortion of appearance. Bold, italic, underline, and strikeout fonts are synthesized if necessary.
 
lfPitchAndFamily
Specifies the pitch and family of the font. The two low-order bits specify the pitch of the font and can be one of the following values:
DEFAULT_PITCH
FIXED_PITCH
VARIABLE_PITCH
Bits 4 through 7 of the member specify the font family and can be one of the following values:
FF_DECORATIVE
FF_DONTCARE
FF_MODERN
FF_ROMAN
FF_SCRIPT
FF_SWISS
The proper value can be obtained by using the Boolean OR operator to join one pitch constant with one family constant.
Font families describe the look of a font in a general way. They are intended for specifying fonts when the exact typeface desired is not available. The values for font families are as follows:
Value      Meaning
FF_DECORATIVE      Novelty fonts. Old English is an example.
FF_DONTCARE      Don't care or don't know.
FF_MODERN      Fonts with constant stroke width (monospace), with or without serifs. Monospace fonts are usually modern. Pica, Elite, and CourierNew. are examples.
FF_ROMAN      Fonts with variable stroke width (proportional) and with serifs. MS. Serif is an example.
FF_SCRIPT      Fonts designed to look like handwriting. Script and Cursive are examples.
FF_SWISS      Fonts with variable stroke width (proportional) and without serifs. MS. Sans Serif is an example.
 
lfFaceName
A null-terminated string that specifies the typeface name of the font. The length of this string must not exceed 32 characters, including the null terminator. The EnumFontFamilies function can be used to enumerate the typeface names of all currently available fonts. If lfFaceName is an empty string, GDI uses the first font that matches the other specified attributes.
 
See Also
CreateFont, CreateFontIndirect, EnumFontFamilies

0

Featured Post

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

728 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

8 Experts available now in Live!

Get 1:1 Help Now