Работа с принтер?

8 отговора 295 прегледа
#1

Работа с принтер?

Искам да изпе4атам прост текстов файл на принтер.Хрумна ми да направя диалогово приложение и с DOS(lpt1) да го изпринтвам.Немога да разбера как от Windows приложение да ползвам по такъв начин DOS(lpt1)?

Отговор
в отговор на Packoлниkoв #2

Re: Работа с принтер?

konfiguriras si printer da ti e na lpt1 primerno
i prais
copy <faila s prn codeto> lpt1

Отговор
в отговор на KpyM #3

Re: Работа с принтер?

По подробно:
- В ДОС има функция ли , прекъсване ли дето изпълнява ДОС команда и се нарича ехес.И така как да се добера до този или друг(еквивалентен) ехес?
- Ако на ръка ще пи6а ДОС команди , за6то на пи6а ВТЛ диалогово приложение?!?!!!!????

Отговор
в отговор на Packoлниkoв #4

Re: Работа с принтер?

mi toj exec-a raboti i pod win
ima i oste edna kup4ina ekvivalentni na exec funkcii
v tvoq slu4aj mozes da probas taka
system("copy boza.prn lpt1");

da ne govorim 4e ima i dale4 po elegantni na4ini da se pe4ata pod win
ne znam kak stava, ama za tva si ima msdn da porovi 4ovek
(to za twa si ima i forumi, moze nqkoi da se izlaze da otgowori, ama to4no toq ne e naj dobriq. probaj tuka [линк] i pitaj naprawo kak se pe4ata pod win)

Отговор
в отговор на Packoлниkoв #5

Re: Работа с принтер?

На какъв език го пишеш това?

Отговор
в отговор на Mr_lbkis #6

Re: Ползвам MS Visual C++ 6.0

и на какъв език ще завърша предварително незнам.Но по често файловете ми завършват на .c и по-нечесто на .cpp.

Отговор
в отговор на Packoлниkoв #7

...

Еее, значи по-скоро няма да мога да ти помогна. Ще се опитам само да ти покажа под ДОС командите как ще са...

C:\> copy file.ext prn

C:\> copy file.ext lpt1

C:\> type file.ext > prn

за по-подробна информация, можеш да COPY /? и TYPE /?

-----------
През Бейсик бих решил проблема като просто отворя хардуерния LPT1 за запис, като разбира се, се съобразя с буфера.

Dim intCount As Integer, strText As String
Open "LPT1" For Output As #1
Open "File.Ext" For Binary As #2
..strText = Space$(8192)
..For intCount = 1 To Int(LOF(2) / 8192)
....Get #2, , strText
....Print #1, strText
..Next intCount
..strText = Space$(LOF(2) Mod 8192)
..Get #2, , strText
..Print #1, strText
Close

В момента нямам къде да го пробвам, пиша на сухо, но принципно това работи.

Редактирано от Mr_lbkis на

Отговор
в отговор на Packoлниkoв #8

Re: Работа с принтер?

На какъвто и език да пишеш важно е да излееш файла си на LPT(1/2) вж.KpyM (Нерегистриран) 31.01.03 21:47

Ще ти обърна внимание, че е възможно да се наложи да прекодираш кирилицата


Отговор
в отговор на Packoлниkoв #9

Re: Работа с принтер?

pi6i edin mail, ako ne si re6il problema, 4e w momenta ne sa mi pod raka source.
Rabotata stava izcyalo pod win
sto1@mail.bg

Отговор