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

[klodj]

Pershendetje,

Kohet e fundit kam krijuar nje program te thjeshte ne Access per nje Exchange.
Programi llogarit ne baze te kursit se sa euro psh. kambisti duhet t'i jape klientit nqs ky deshiron t'i ktheje leket ne euro ose ansjelltas. Monedhat i krijon sipas deshires dhe ne fund ka disa raporte ditore dhe mujore.

Por problemi eshte se kambisti deshiron qe t'i jape edhe nje fature klientit ne momentin e transaksionit. Une kam krijuar nje fature por edhe pse eshte me gjatesine 80 mm nuk printohet te printeri termik qe eshte i ngjashem me printerat e lokaleve.

Tani nqs duhet shtuar ndonje rresht ne kod shpresoj te me ndihmoje ndokush qe eshte marre me kete problem. Une dua qe fatura te printohet e vogel sepse me printer te madh sikur nuk shkon per nje transaksion te thjeshte kembimi valutor.


Ju falenderoj paraprakisht!
Klodj

[klodj]

Asnje me kete problem????

[nince_tutes]

Klodj, interesante e ke si teme, dhe mua me interson, se kam bere raporte ne A4, por, per ti nxjerre me te vogla s'ka provuar.

Do presim nga dikush q ka experience ketu.

[klodj]

Nuk ka ndonje qe ka perdorur accessin per fatura te tilla? Mos duhet ndonje dll

[Ardi_Pg_ID]

Para se te pergjigjem per kete pike dua te them se po jap vetem ide teorike nuk e di se sa mund te funksjonojne ne realitet pasi kam shume kohe qe nuk merem me programim e sidomos me Access.

Teorikisht cdo program kur gjeneron print preview e ben kete gje duke lexuar informacjonin e ndodhur ne driverin e printerit. Teorikisht per te bere kete gje duhet te gjenerosh nje report bazuar ne te dhenat e driverit te printerit duke e caktuar kete printer ne database me sa di ne e me sa pashe ne internet ekzsiton menyra per te caktuar printerin me komandat PrtDevNames edhe PrtDevMode. Gjithashtu duhet te dish se access ka limitime ne perdorimin e printimit duke caktuar maksimumin e gjatesise se printimit ne 20" gjithashtu edhe teksti me te cilin gjenerohet ky report duhet te jete i thjeshte pasi shumica e printerave termale kane limitime ne lloin e fontit te perdorur.

mund ti hedhesh nje sy keti link http://support.microsoft.com/?kbid=203992 pasi ka disa info reth keti problemi. nuk e di sa te ndihmova po do muindohem te pyes ndonje nga puna pasi une qe kur hyra ne network spara merem me programim vetem TCL, Bach, edhe mirc qe mund te jem mare keto kohet e fundit per mbrojtjen e sistemeve te Albasoul Network.

Ardi

[klodj]

Ardi te falenderoj per pergjigjen dhe gjithashtu per cdo informacion tjeter..

Suksese me Albasoul Network!
Klodi

[Ardi_Pg_ID]

klodj nese nuk e ke problem mund te postosh pjesen e scriptit qe meret me printimin e fatures?

[klodj]

Une vetem kaq kam shkruar:


Private Sub invoice_Click()
On Error GoTo Err_invoice_Click

Dim stDocName As String

stDocName = "Invoice Last"
DoCmd.OpenReport stDocName, acPreview

Exit_invoice_Click:
Exit Sub

Err_invoice_Click:
MsgBox Err.Description
Resume Exit_invoice_Click

End Sub

[Toni07213]

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

[klodj]

Uau! Thanx man!

Do e provoj patjeter.

Faleminderit!