POS printer Samsung SRP-270A i print iz aplikacije...

Printer je serijski (COM1) i radi, ali...
Uz drivere dolazi komad VB koda koji printa račun, ali ne radi kako treba - svaki račun ispada drukčije.
Zamjeni slova, ali bez pravila, na jednom računu je a=e, na sljedećem istom tom računu e=a.
Pokušao sam s original driverima, sa generic, kopirati txt file na COM1 i svaki put dobijem ja račun, ali nikako da bude kako treba.

Jel može pomoć, malo je hitno?

Hvala

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

Potpis

HomePage http://www.eurora3d.com

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.

Potpis

HomePage http://www.eurora3d.com

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.

Potpis

anti-heroin spree

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

Potpis

HomePage http://www.eurora3d.com

neće ni na 9600