Here's a challenge for you!
I'm a little new to VB so excuse me if this is something basic. I am printing a report with lines boxes and pictures. now I have it working on a lexmark Optra R laser, but when I print it on a Lexmark K 1220 laser, it advances the text by one line vertically on a landscape printed page. It only prints the text out of alignment, not the boxes and lines. (I'm using Twips) I'm printing directly to the printer using a subroutine I created calling the printer.print.
Now I've narrowed this problem down to just the printer, but for background info, the app runs on a windows nt4 server running citrix metaframe clients, from which the program is executed as part of a larger application.
How do I get this to print the same on all laser printers.
isn't VB printing postscript?
here's my vb grprint subroutine that calls the printing of text.
email me @ [email protected]
thanks very much!!
rivate Sub grprint(pdata, CNum As Integer, RNum As Integer, TLen As Integer, TJustify As String)
Dim PStart As Integer
Dim TxtWidth As Integer
If IsNull(pdata) = True Then
Exit Sub
End If
If TxtWidth < 1 Then
TxtWidth = 1
End If
On Error Resume Next
TxtWidth = Printer.TextWidth(pdata)
On Error Resume Next
Select Case UCase(TJustify)
Case "R"
PStart = TLen - TxtWidth
Case "M"
PStart = (TLen / 2) - (TxtWidth / 2)
Case "L"
PStart = 0
End Select
MsgBox PStart
Printer.CurrentY = RNum + Pad
Printer.CurrentX = CNum + PStart
Printer.FontTransparent = True
Printer.Print PrintClipped(TLen, pdata)
On Error GoTo 0
End Sub
