Si të krijoj një faturë për printer termik 80 mm

[stan05]

shfrytzoje kete procedur nese mundesh me kuptu(un me kete metod punoj vazhdimish neper programet e mija:
Private Sub Command2_Click()
Open App.Path & "\Kuponi.txt" For Output As #1
Printer.FontName = "Courier New"
Printer.FontSize = 9
Print #1, " "
Close #1
Open App.Path & "\Kuponi.txt" For Append As #1
Print #1, " "
Print #1, "Data: " & lbldata.Caption
Print #1, "Kuponi NR: " & lblKuponi.Caption
Print #1, " "
Print #1, ".................................................. .."
Print #1, " "
For ii = 1 To Artikujt.ListItems.Count
Print #1, Artikujt.ListItems(ii).Text
Print #1, " " & Artikujt.ListItems(ii).SubItems(1) & " x "; Artikujt.ListItems(ii).SubItems(2) & " = " & Artikujt.ListItems(ii).SubItems(3)
Next
Print #1, " "
Print #1, "..............................."
Print #1, ""
Dim lngSpace As Long
Print #1, "TOTALI : " & Space(lngSpace) & Format(lbltotal, "###,##0.00") & " "
Print #1, " "
Print #1, "Ju faleminderit!"
Print #1, " "
Print #1, "TVSH është llogaritur në çmim."
Print #1, " "
Close #1
Shell App.Path & "\prnt_fat.exe", vbHide
End Sub

shume code interesant, kjo perdoret per programing ne gjuhen Visual Basic. Qfar eshte kjo "prnt_fat.exe" ?? Nuk e kuptoj? a eshte ndonje komponent perberese apo qka?

[Toni07213]

shume code interesant, kjo perdoret per programing ne gjuhen Visual Basic. Qfar eshte kjo "prnt_fat.exe" ?? Nuk e kuptoj? a eshte ndonje komponent perberese apo qka?

pasi nuk e kemi thirrur portin LPT per me hap fajllin qe duhet shtypur duhet kjo nes nuk jam i qart ateher e dergoj nje metod tjeter te po kesaj natyre shtyp shum shpejt