Jel mozes da posaljes / zakacis taj Vb program.
Ja imam jedan Vb program (ne trebaju drajveri) koji dobro radi na mom Epsonovom termo printeru (COM).
Ovako mogu samo da ti kazem da je vazna brzina kojom se podatci salju na port.
Pozdrav

Program izgleda ovako (iskomentirao sam dio sa printom slike jer mi ne treba a i ne radi nikako):

For Each prnPrinter In Printers
If prnPrinter.DeviceName = "SAMSUNG SRP-270" Then
Set Printer = prnPrinter
Exit For
End If
Next

If Printer.DeviceName = "SAMSUNG SRP-270" Then
Printer.Font.Size = 9
Printer.FontName = "FontControl"
Printer.Print "x"

Printer.Font.Size = 9
Printer.FontName = "FontA2x1"

Printer.Font.Bold = True
Printer.Print "* Joshua Cafe *" + vbCrLf
Printer.Font.Bold = False

Printer.Font.Size = 9
Printer.FontName = "FontControl"
Printer.Print "w"

Printer.Font.Size = 9
Printer.FontName = "FontA1x1"

Printer.Print " 3000 Spring Street, Rancho,"
Printer.Print " California 10093,"
Printer.Print " Tel) 858-519-3698 Fax) 3852"

Printer.Print vbCrLf + "---------------------------------" 'LF
Printer.Print "Orange Juice 5.00"
Printer.Print "6 Bufalo Wing 24.00"
Printer.Print "Potato Skin 12.00"
Printer.Font.Bold = True
Printer.ForeColor = RGB(255, 0, 0)
Printer.Print "Subtotal 41.00"
Printer.ForeColor = RGB(0, 0, 0)
Printer.Font.Bold = False

Printer.Print "Tax 6% 2.46"
Printer.Font.Bold = True
Printer.ForeColor = RGB(255, 0, 0)
Printer.Print "Member Discount 2.30"
Printer.ForeColor = RGB(0, 0, 0)
Printer.Font.Bold = False

Printer.Font.Bold = True
Printer.Print "Cash 100.00"
Printer.Print "Amt. Paid 41.16"
Printer.Font.Bold = False
Printer.Font.Bold = True
Printer.ForeColor = RGB(255, 0, 0)
Printer.Print "Change Due 58.84"
Printer.ForeColor = RGB(0, 0, 0)
Printer.Font.Bold = False
Printer.Print "---------------------------------"

'Printer.Font.Size = 9
'Printer.FontName = "FontControl"
'Printer.Print "x"

Printer.Font.Size = 9
Printer.FontName = "FontA1x1"
Printer.Print "Member Number : 452331949" + vbCrLf 'sredina

Printer.Font.Size = 9
Printer.FontName = "FontA1x1"
Printer.Font.Bold = True
Printer.Print "Have a nice day !" + vbCrLf
Printer.Font.Bold = False

Printer.Print "Sale Date: 07/01/03"
Printer.Print "Time: 12:30:45"

Printer.Font.Size = 9
Printer.FontName = "FontControl"
Printer.Print "w"

'Dim pic As Picture

'Set pic = LoadPicture(App.Path & "\free5_100.bmp")

'Printer.CurrentX = 60
'Printer.CurrentY = 5000
'Printer.PaintPicture pic, Printer.CurrentX, Printer.CurrentY
'Printer.CurrentY = Printer.CurrentY + pic.Height

'Set pic = LoadPicture(App.Path & "\cafeblue208.bmp")
'Printer.PaintPicture pic, Printer.CurrentX, Printer.CurrentY

Printer.CurrentX = 0
Printer.CurrentY = 9000
Printer.Font.Size = 9
Printer.Font.Name = "FontControl"
Printer.Print "g"

Printer.EndDoc
Else
MsgBox "SRP-270 windows driver don't installed"
End If

Ovo je VB 6 program za stampanje preko comm porta (dez draivera). Radi na mom Epsonovom termo printeru. Promeni comm port (1,2) u programu na onaj gde ti je printer zakacen. Kad je povezan lampice su zelene.

Prilikom otvaranja porta, javlja grešku:
Could not set comm state, there may be one or more invalid communications parameters.

99% je problem se regionalnim podesavanjima i kodnim rasporedom.

Neni taj program radi kad u Comm Port >> Settings postavim Comm port na 2
(posto mi je stampac na tom portu) a Settings u tom prozoru mi je
19200,n,8,1 . Prvi parametar je brzina
Probaj da stavis 9600,n,8,1 (to je defaultna brzina) ili neki drugi port
Pozdrav

neće ni na 9600

Onda ne znam
Meni taj program otvara oba Comm porta koja imam i onaj sa printerom i onaj
gde nema nista.
Jesi 100% siguran da ti je printer OK ili proveri jel se isto desava na Svim
Comm portovima koje imaš.
Taj program je malo izmenjen Microsoft primer koriscenja MSComm ActiveX
kontrole a njihovi primeri su standardno kvalitetni i provereni.
Inace,sigurno znam da je za comm stampace mnogo brze da stampaju ovako nego
preko drajvera.
Mozda ti jos neko da neku ideju.
Pozdrav.