Send Epson ESC/P commands via VB5

Try:

Dim fn As Long, s1 As String
s1 = Chr(27) & Chr(69) & Chr(1) & "Hello" + Chr(12)
fn = FreeFile
Open Printer.Port For Output As fn
Print #fn, s1
Close fn

...

open LPT1 as a file - not recommended or use DirPrint.cls

Dir(ect)Print.cls

VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "clsDirectPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private Type DOC_INFO_1
pDocName As String
pOutputFile As String
pDatatype As String
End Type

Private Declare Function OpenPrinter& Lib "winspool.drv" _
Alias "OpenPrinterA" (ByVal pPrinterName As String, _
phPrinter As Long, _
ByVal pDefault As Long) ' Third param
changed to long
Private Declare Function StartDocPrinter& Lib "winspool.drv" _
Alias "StartDocPrinterA" (ByVal hPrinter As Long, _
ByVal Level As Long, _
pDocInfo As DOC_INFO_1)
Private Declare Function StartPagePrinter& Lib "winspool.drv" _
(ByVal hPrinter As Long)
Private Declare Function WritePrinter& Lib "winspool.drv" _
(ByVal hPrinter As Long, _
pBuf As Any, _
ByVal cdBuf As Long, _
pcWritten As Long)
Private Declare Function EndDocPrinter& Lib "winspool.drv" _
(ByVal hPrinter As Long)
Private Declare Function EndPagePrinter& Lib "winspool.drv" _
(ByVal hPrinter As Long)
Private Declare Function ClosePrinter& Lib "winspool.drv" _
(ByVal hPrinter As Long)

Private hPrinter&, _
docinfo As DOC_INFO_1, _
PrinterName$

Public Function OpenJob(JobName$, Er As Boolean)
Dim JobId&
Er = False

If OpenPrinter(Printer.DeviceName$, hPrinter, 0) = 0 Then
Er = True
Exit Function
End If
docinfo.pDocName = JobName$
docinfo.pOutputFile = vbNullString
docinfo.pDatatype = vbNullString
JobId = StartDocPrinter(hPrinter, 1, docinfo)
End Function

Public Sub StartPage()
Call StartPagePrinter(hPrinter)
End Sub

Public Sub PrintData(S$)
Dim written&
Call WritePrinter(hPrinter, ByVal S$, Len(S$), written)
End Sub

Public Sub EndPage()
Call EndPagePrinter(hPrinter)
End Sub

Public Sub CloseJob()
Call EndDocPrinter(hPrinter)
Call ClosePrinter(hPrinter) ' Close when done
End Sub

On 13 Sep 2001 07:02:20 -0700, (Ken G)
wrote: