[Giorgos]

Βεβαια με ταλαιπωρουν λίγο τα ελληνικά αλλα θα την βρω την λύση...
Δλδ στον εκτυπωτή τα ελληνικά τα στέλνει τσαχπινογαργαλιρικα... ενω τα αγγλικά κανονικά..

Υ.Γ ο κώδικας που εστειλα παραπάνω θέλει λίγο σημαζεμα..!! αλλα επειδη με κουρασε τον εστειλα ετσι τον ατιμο..!!

Function StrTrans(str As String) As String

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
End Function


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

Καληνυχτα σε ολους