Ανανέωση ιστοσελίδας

[pdhmos]

Καλησπερα παιδια σε ολους θα ηθελα την βοηθεια σας .
Εχω κανει μια εμπορικη εφαρμογη για το εργαστηριο μου (ειμαι τεχνικος τηλεορασεων και ασυρματων )
και για καθε συσκευη που ερχεται εκδιδω ενα δελτιο παραλαβης εκτυπωνοντας το μεσα απο την vba σαν εκθεση.
Ο υπολογιστης ειναι συνδεμενος και με μια φορολογικη μηχανη που βασταει τα παραστατικα στην μνημη της. Το ενα με την συμβολοσειρα ειναι 2 kbytes το δευτερο οτι στελνω να εκτυπωθει απο την εκθεση που ειναι και αυτο 2 kbytes και το τριτο (το βασανο) τα εχει ολα μαζυ αλλα το κανει 562 kbytes το ενα .
Το κανει με καταληξη bin και εκτος απο την αρχη ολο το αλλο ειναι γεματο FF.
Ερωτηση επειδη ισως το τυπωνει σαν γραφικο υπαρχει τροπος να το τυπωσω σαν text μπας και σωθω.

ΕΥΧΑΡΙΣΤΩ ΠΡΟΚΑΤΑΒΟΛΙΚΑ (με του τονους δεν τα παω καλα)

[nisgia]

Γεια σου φίλε pdhmos και καλωσόρισες στο φόρουμ!

Οι φόρμες και οι εκθέσεις της Access διαθέτουν μια ιδιότητα "Fast Laser Printing"
η οποία είναι TRUE-FALSE και νομίζω πως κάνει ακριβώς αυτό που θέλεις:
Στέλνει τα γραφικά πότε σε κανονικά γραφικά και πότε σε Text.

Δεν ξέρω αν σε βοηθήσει με τον dot-matrix αλλά δοκίμασε να εκτυπώσεις
με διαφορετική τιμή σε αυτή την ιδιότητα.
Εμένα πάντως στο παρελθόν με έναν Laser, είχε βοηθήσει.

Ελπίζω να γίνει.
Γιάννης

[pdhmos]

Ευχαριστω κατ αρχας για την αμεση απαντηση.
Δοκιμασα αυτο που μου ειπες και δεν ειδα διαφορα (ξεχασα να πω οτι η κεφαλη κτυπαει 2 φορες τους χαρακτηρες τους κανει εντονους) και στην αρχη ειχα προεπιλεγμενο τον IBM Proprinter II δοκιμασα στο σπιτι τον Generic IBM Graphics 9pin και ειδα οτι με αυτον κτυπαει τους χαρακτηρες μια φορα, η δοκιμη στην φορολογικη μηχανη θα γινει αυριο στο μαγαζι μηπως και εχουν σχεση μεταξυ τους τα παραπανω αλλιως θα επανελθω...

[Giorgos]

Καλημερα pdhmos

Καταρχην πες μου ποιός φορολογικός μηχανισμός είναι..

Στους φορολογικούς μηχανισμούς "πέζουν" πολυ τρόποι εκτύπωσης παραστατικού..!!

Οσο αφορά τώρα τον εκτυπωτή..

Οι τραϊβερ που περνάς δεν βοηθάνε στο θέμα draft.. αυτό θα το φτιάξεις απο το setup του εκτυπωτή..

Εάν θες πές μου ποιόν εκτυπωτή έχεις.

Γιώργος

[pdhmos]

Αγαπητε γιωργο ο φορολογικος ειναι synthex 700 και ο εκτυπωτης ειναι oki 520. Ξεχασα να σας πω οτι μεχρι και το 2009 δουλευα αλλο προγραμα που ηταν σε dos/dbase ,και το δεδομενο αρχειο το εκανε 2 περιπου 2kb. Σημερα (τριτη) δοκιμασα και εκοψα με το παλιο προγραμα και το μεγεθος βγηκε 2 kb.
Αρα το προβλημα εντοπιζεται στο οτι το dos εστελνε text και το windows μαλλων σαν εικονα.
Εαν εχεις καμια ιδεα την περιμενω. ΔΗΜΟΣ.

[Giorgos]

Φιλε δήμο καλησπερα.

Για το πρώτο ερώτημα
Σε φορολογικο μηχανισμο xcode που ειχαμε στην εταιρεια οταν μου κραταγε τις αποδειξεις που εστελνα απο access με την μορφη έκ8εσης (ναι εικόνα) εκανα το εξης και το ελυνα .. στις ιδιοτητες του εκτυπωτη τσεκαριζα την επιλογη "Διατηρηση των εγγράφων που έχουν τυπωθεί" οταν το εκανα αυτο τυπωνε κανονικα. στην συνεχεια διεγραφα ότι είχε κρατηση ο εκτυπωτης και εκανα επανεκινηση και μου δουλευε μια χαρα..

Στον δευτερο φορολογικο μηχανισμκο ics σε αυτον εκτυπωνα μονο με κωδικα...

Στο δευτερο τώρα..
Η εκ8εσεις γενικοτερα απο access δεν τυπωνοντε draft..
Εαν εχεις γνωσεις απο vba μπορω να σου στειλω ενα κωδικα να κανεις την δουλεια σου...
Εαν πάλι όχι ο oki στο setup έχει μια επιλογή (δεν την θυμαμε ακριβος πως την αναφερει) που την επιλεγης και σου τυπώνει ετσι οπως θες και πολυ γρηγορα..
Εαν πάλι δεν εχεις την δισκετα να μπεις στο setup κατεβασε την απο το ιντερνετ

Παντων απο οσα γνωριζω τα kb δεν πεζουν ρολο..

Πες μου παντως εαν εχεις γνωσεις απο vba να σου στειλω ενα κωδικα

Γιώργος

[pdhmos]

Αγαπητε γιωργο η εφαρμογη ειναι σε vba και οι γνωσεις νου ειναι μονο απο διαβασμα βιβλιων δεν εχω σπουδασει κατι αναλογο. Εαν θελεις στειλε μου τον κωδικα. Για τον οκι δεν εχω δισκετα μηπως λες αυτο που μπαινεις απο τα κουμπια του και κανεις διαφορα ;

[Giorgos]

καλησπερα Δημο

Λοιπον Ανοιγεις τον πινακα που έχεις καταχωρηση το παραστατικο



dim Onoma as string
Onoma = Εκτυπωτης (διαδρομη)

Open Onoma For Output As #1

Print #1, "" & vbCr αυτο εδω το κανω για κενη εκτυπωτικη γραμμη

Print #1, " " & StrTrans(kena(εδω βαζεις το string η το integer προκειμενου να στο επιστρεψει ετοιμο για εκτυπωση ))

και εκει που 8ελεις την σημανση dim Simansi as string
Simansi = "$*77"
Print #1, "" & Simansi & vbCr



Close # 1 εδω με το που κληνει στελνει την εγγραφη στον εκτυπωτη



Απο αυτη εδω την ρουτινα περνας ολα σου τα string για να μην σου τα βγαζει τσαχπινογαργαλιαρικα οταν εκτυπώνη

Public Function StrTrans(ByVal str As String) As String
On Error GoTo StrTrans_err

Dim i As Integer
Dim outStr As String, s As Byte
For i = 1 To Len(str)
s = Asc(Mid(str, i, 1))
Select Case s
Case 193: outStr = outStr & Chr(128) '"Á"
Case 162: outStr = outStr & Chr(128) '"¢"
Case 194: outStr = outStr & Chr(129) '"Â"
Case 195: outStr = outStr & Chr(130) '"Ã"
Case 196: outStr = outStr & Chr(131) '"Ä"
Case 197: outStr = outStr & Chr(132) '"Å"
Case 184: outStr = outStr & Chr(132) '"¸"
Case 198: outStr = outStr & Chr(133) '"Æ"
Case 199: outStr = outStr & Chr(134) '"Ç"
Case 185: outStr = outStr & Chr(134) '"¹"
Case 200: outStr = outStr & Chr(135) '"È"
Case 201: outStr = outStr & Chr(136) '"É"
Case 186: outStr = outStr & Chr(136) '"º"
Case 202: outStr = outStr & Chr(137) '"Ê"
Case 203: outStr = outStr & Chr(138) '"Ë"
Case 204: outStr = outStr & Chr(139) '"Ì"
Case 205: outStr = outStr & Chr(140) '"Í"
Case 206: outStr = outStr & Chr(141) '"Î"
Case 207: outStr = outStr & Chr(142) '"Ï"
Case 188: outStr = outStr & Chr(142) '"¼"
Case 208: outStr = outStr & Chr(143) '"Ð"
Case 209: outStr = outStr & Chr(144) '"Ñ"
Case 211: outStr = outStr & Chr(145) '"Ó"
Case 212: outStr = outStr & Chr(146) '"Ô"
Case 213: outStr = outStr & Chr(147) '"Õ"
Case 190: outStr = outStr & Chr(147) '"¾"
Case 214: outStr = outStr & Chr(148) '"Ö"
Case 215: outStr = outStr & Chr(149) '"×"
Case 216: outStr = outStr & Chr(150) '"Ø"
Case 217: outStr = outStr & Chr(151) '"Ù"
Case 191: outStr = outStr & Chr(151) '"¿"
Case 225: outStr = outStr & Chr(152) '"á"
Case 226: outStr = outStr & Chr(153) '"â"
Case 227: outStr = outStr & Chr(154) '"ã"
Case 228: outStr = outStr & Chr(155) '"ä"
Case 229: outStr = outStr & Chr(156) '"å"
Case 230: outStr = outStr & Chr(157) '"æ"
Case 231: outStr = outStr & Chr(158) '"ç"
Case 232: outStr = outStr & Chr(159) '"è"
Case 233: outStr = outStr & Chr(160) '"é"
Case 234: outStr = outStr & Chr(161) '"ê"
Case 235: outStr = outStr & Chr(162) '"ë"
Case 236: outStr = outStr & Chr(163) '"ì"
Case 237: outStr = outStr & Chr(164) '"í"
Case 238: outStr = outStr & Chr(165) '"î"
Case 239: outStr = outStr & Chr(166) '"ï"
Case 240: outStr = outStr & Chr(167) '"ð"
Case 241: outStr = outStr & Chr(168) '"ñ"
Case 243: outStr = outStr & Chr(169) '"ó"
Case 242: outStr = outStr & Chr(170) '"ò"
Case 244: outStr = outStr & Chr(171) '"ô"
Case 245: outStr = outStr & Chr(172) '"õ"
Case 246: outStr = outStr & Chr(173) '"ö"
Case 247: outStr = outStr & Chr(174) '"÷"
Case 248: outStr = outStr & Chr(175) '"ø"
Case 249: outStr = outStr & Chr(224) '"ù"
Case 220: outStr = outStr & Chr(225) '"Ü"
Case 221: outStr = outStr & Chr(226) '"Ý"
Case 222: outStr = outStr & Chr(227) '"Þ"
Case 250: outStr = outStr & Chr(228) '"ú"
Case 223: outStr = outStr & Chr(229) '"ß"
Case 252: outStr = outStr & Chr(230) '"ü"
Case 253: outStr = outStr & Chr(231) '"ý"
Case 251: outStr = outStr & Chr(232) '"û"
Case 254: outStr = outStr & Chr(233) '"þ"
Case 128: outStr = outStr & Chr(238) '"€"
Case 218: outStr = outStr & Chr(136) '"Ú"
Case 219: outStr = outStr & Chr(147) '"Û"
Case Else: outStr = outStr & Chr(s)
End Select
Next i
StrTrans = outStr

Exit Function
StrTrans_exit:
Exit Function
StrTrans_err:
Exit Function
Resume StrTrans_exit
End Function


Αυτη η ρουτινα σου μετρα τα κενα που θα αφηνει εαν ειναι null η τιμη
Public Function kena(ByVal str As String, no As Integer, Tsek As Integer) As String
On Error GoTo Kena_err

Dim i As Integer
Dim Diaf As Integer
Dim Ken As String


If Len(str) > no Then
kena = Mid(str, 1, no)
Exit Function
End If

If Len(str) = no Then
kena = str
Exit Function
End If


If IsNull(str) = True Then
For i = 1 To no
Ken = Ken & " "
Next i
End If

If Len(str) < no Then

Diaf = no - Len(str)

For i = 1 To Diaf
Ken = Ken & " "
Next i

If Tsek = 1 Then str = Ken & str Else str = str & Ken

kena = str
End If


kk = Len(kena)
Exit Function
Kena_exit:
Exit Function
Kena_err:
Exit Function
Resume Kena_exit
End Function


ολο το παραπανω είναι όπως τύπωνες το παραστατικο σου απο dos..

Γιώργος

[Giorgos]

Δημο εάν δεν μπορεσεις να βγαλεις ακρη με τον παραπανω κωδικα
στηλε μου την βάση να στον διαμορφωσω εγω.. και εσει απλα να βαλεις την διαδρομη του εκτυπωτη

Γιώργος

[pdhmos]

Πως την στελνω ? ειναι 2 mb περιπου .zip (μην γελασεις πολυ με τις χχχχχ που εχω κανει )