DOT MATRIX pechat s VB

imam edno prilozenie na vb50 koeto triabva da pe4ati formuliari na matri4en printer kato DOS programka. Si4ko e to4no ama sled 5 4asa rabota se zabiva shtot :

not enoug memory.

inache za vseki dokument otvariam lpt kato file pisha si ( v OEM) i go zatvariam

i pak..i pak i not enough memory

ima li niakoi ideia kak da go izluza

blagodaria

az sym pisach na VB, i daje v momenta obsajdame v tema "niakoi pishe li na VB 6 ?"

tova za koeto govorish e dosta interesno. ;o) ... samo predi 1-2 meseca mi se naloji da napisha "PE" redaktor pod Windows. triaashe da moje da otvaria ASCII i ANSY failove, da razpoznava kakvi sa, i da gi pechata kym matrichen PRN prez LPT-to... predi niakolko dni mi se vazloji zadachata da go dopisha s vazmojnost da pechata i prez mreja (Network Neighborhood) kym remote computer s matrichen PRN kym nego ;o))) goliam maitap stana. no do kraia na sedmicata shte nameria vreme da go drasna t'va. sam razbirash, che pod Windows niama kak da "Share"-na LPT porta, i Network printera ne moje da stane kato localen. ;o) a programata koiato pechata dannite e pod DOS.

znatchi za da razberem kade e problema, shte triabva da mi pratish tozi SUB, deto izvarshva otvarianeto na porta, i podavaneto na dannite za pechat. syshto taka si ima znachenie i kakvi sa dannite de, no tova v proces na rabota moje da se izchisti. problema na matrichnite printeri e, che imat adski malko pamet. obiknoveno sa s po 8KB RAM, i se nalaga da se podavat dannite na "porcii". sega obatche niama kak da ti obiasniavam kakvo predstavliava LPT port, i prez koi adresi se upravliava, i zashto triabva da sledish strobe-to. ako iskash - pishi na pechkov@mail.bg i shte moje da porabotim varhu problema po-lesno...

zasega - bye, shtoto stana pochti 4:00 AM, a v 6 triabva da patuvam ;o) ... leleeeee, koga li se iztarkalia vremeto ;o)

Като е така работата защо не оставиш ОС да си върши работата.
Пишеш си изхода в един обикновен текстов файл, например pecat.txt
Предварително е създдено в директорията на приложението едно bat-файлче, от рода: pecat.bat с елементарно съдържание

copy pecat.txt lpt1:

След това при "печат" стартираш x=Shell("pecat.bat"). Предаваш управлението на ОС и си свиркаш, не би трябвало забие. Настройваш там батчето на close on exit, run minimized. Да....и ако имаш кирилица ще трябва да конвертираш ansii в ascii.

ta znachi...

failovete koito pechatam sa suzdadeni ot dugo prilozenie i sa oburnati v DOS s ANSI2OEM konvertirane

purvo probav s copy file.txt lpt1 s close on exit i tn..i tn.. i se zabi vervaite mi :(

posle reshih che WIN neshto se burka ot mnogo kopirane na lpt1-to i si napisah programka koitao 4ete na porcii po 1 red i pishe na lpt-to i pak se zabi.

pisah programkata na clipper, c i vb i....

sigurno ima niakakva vrutka s porta ama kato ne ia znam
moze bi triabva da se za4istva niakakva pamet deto WIN ne go pravi...

Е щом е така работата май не е от бейсика.
Пробвай от Printers-Details-Prot Settings да махнеш "Spool MS-DOS print jobs".
Верно, докато не изпринтира нищо друго няма да можеш да правиш, ама може и да тръгне.....нямам повече идеи....

още една идея, ако ти се занимава

по принцип не е добре под Win да се прави copy LPT1
а да се юзва API
OpenPrinter
WritePrinter
ClosePrinter ...

пример за VB
Q154078 : HOWTO: Send Raw Data to a Printer Using the Win32 API from VB

хубавото е че няма значение къде се намира принтера
конвертирането до OEM ще трябва да си го направиш сам :(

успех

mersi,

shte probvam... niama kude da hodia

ako ti ostane vreme, sendni neshto na ICQ: 34254941, moje da izmislim neshto.