Print at the center

[terence2004]

Can someone tell me how to print the text at the center of the paper? i am using a receipt print with a maximum of 40 characters per line Proper Planning is way to success

[Dave Kreskowiak]

Since you know the width of the printer you pad the beginning of the string with spaces. Take the length of the line you want to print away from the width of the printer, then divide that difference by 2 to get the number of spaces to add on both sides of the test you want to print, but only add it to the beginning of the text:

Dim sText As String = "Text to print Centered"
Dim iPad As Integer

iPad = ( 40 - sText.Length ) / 2
sText = New String( Chr(32), iPad ) & sText

RageInTheMachine9532

[terence2004]

New string is an unexperted identified. so how?? Proper Planning is way to success

[Dave Kreskowiak]

Are you using VB6 or VB.NET? The code sample works as advertised on VB.NET. The equivelent code in VB6 would be this:

Dim sText As String
Dim iPad As Long

sText = "Text to print Centered"
iPad = ( 40 - Len(sText) ) / 2
sText = String$( iPad, 32 ) & sText

RageInTheMachine9532