powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Как печатать в Битмап ?
5 сообщений из 5, страница 1 из 1
Как печатать в Битмап ?
    #32516684
Вагон
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Хочу виртуальный принтер:
- что бы из любой программы напечатать в какой-либо популярный графический файл (лучше всего BMP/TIFF).

Если где-то существует такой бесплатный подскажите. Если нету таких - как его сделать, хотя бы в принципе.

Заранее благодарен...
...
Рейтинг: 0 / 0
Как печатать в Битмап ?
    #32516771
Гость(2)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У одной моей знакомой был такой принтер...

Правда, выдавить информацию из нее я не смогу - она полный ламер, а вручную посмотреть тоже не получится - она запрещает заходить в папки дальше рабочего стола (но все на ее компе работают под правами главного админа ;))...
...
Рейтинг: 0 / 0
Как печатать в Битмап ?
    #32516913
Фотография Палестинец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
что бы из любой программы напечатать

printscreen
...
Рейтинг: 0 / 0
Как печатать в Битмап ?
    #32518884
Шогал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мне максимум удавалось выдавить в файл текст типа:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
%!PS-Adobe- 3 . 0 
%%Title: <CFF0EEE1EDE0FF20F1F2F0E0EDE8F6E0>
%%Creator: PScript5.dll Version  5 . 2 
%%CreationDate:  5 / 13 / 2004   15 : 41 : 41 
%%For: User
%%BoundingBox: (atend)
%%Pages: (atend)
%%Orientation: Portrait
%%PageOrder: Special
%%DocumentNeededResources: (atend)
%%DocumentSuppliedResources: (atend)
%%DocumentData: Clean7Bit
%%TargetDevice: (Monotype Imagesetter) ( 52 . 3 )  2 . 11 
%%LanguageLevel:  1 
%%EndComments

%%BeginDefaults
%%PageBoundingBox:  9   11   586   831 
%%ViewingOrientation:  1   0   0   1 
%%EndDefaults


%%BeginProlog
%%BeginResource: file Pscript_WinNT_ErrorHandler  5 . 0   0 
/currentpacking where{pop/oldpack currentpacking def/setpacking where{pop false
setpacking}if}if/$brkpage  64  dict def $brkpage begin/prnt{dup type/stringtype
ne{=string cvs}if dup length  6  mul/tx exch def/ty  10  def currentpoint/toy exch
def/tox exch def  1  setgray newpath tox toy  2  sub moveto  0  ty rlineto tx  0 
rlineto  0  ty neg rlineto closepath fill tox toy moveto  0  setgray show}bind def
/nl{currentpoint exch pop lmargin exch moveto  0  - 10  rmoveto}def/=={/cp  0  def
typeprint nl}def/typeprint{dup type exec}readonly def/lmargin  72  def/rmargin  72 
def/tprint{dup length cp add rmargin gt{nl/cp  0  def}if dup length cp add/cp
exch def prnt}readonly def/cvsprint{=string cvs tprint( )tprint}readonly def
/integertype{cvsprint}readonly def/realtype{cvsprint}readonly def/booleantype
{cvsprint}readonly def/operatortype{( --)tprint =string cvs tprint(-- )tprint}
 
readonly def/marktype{pop(-mark- )tprint}readonly def/dicttype{pop
(-dictionary- )tprint}readonly def/nulltype{pop(-null- )tprint}readonly def
/filetype{pop(-filestream- )tprint}readonly def/savetype{pop(-savelevel- )
tprint}readonly def/fonttype{pop(-fontid- )tprint}readonly def/nametype{dup
xcheck not{(/)tprint}if cvsprint}readonly def/stringtype{dup rcheck{(\()tprint
tprint(\))tprint}{pop(-string- )tprint}ifelse}readonly def/arraytype{dup rcheck
{dup xcheck{({)tprint{typeprint}forall(})tprint}{([)tprint{typeprint}forall(])
tprint}ifelse}{pop(-array- )tprint}ifelse}readonly def/packedarraytype{dup
rcheck{dup xcheck{({)tprint{typeprint}forall(})tprint}{([)tprint{typeprint}
forall(])tprint}ifelse}{pop(-packedarray- )tprint}ifelse}readonly def/courier
/Courier findfont  10  scalefont def end errordict/handleerror{systemdict begin
$error begin $brkpage begin newerror{/newerror false store vmstatus pop pop  0 
ne{grestoreall}if errorname(VMerror)ne{showpage}if initgraphics courier setfont
lmargin  720  moveto errorname(VMerror)eq{userdict/ehsave known{clear userdict
/ehsave get restore  2  vmreclaim}if vmstatus exch pop exch pop PrtVMMsg}{
(ERROR: )prnt errorname prnt nl(OFFENDING COMMAND: )prnt/command load prnt
$error/ostack known{nl nl(STACK:)prnt nl nl $error/ostack get aload length{==}
repeat}if}ifelse systemdict/showpage get exec(%%[ Error: )print errorname
=print(; OffendingCommand: )print/command load =print( ]%%)= flush}if end end
end}dup  0  systemdict put dup  4  $brkpage put bind readonly put/currentpacking
where{pop/setpacking where{pop oldpack setpacking}if}if

И дальше в том же роде...

Но думаю где-то можно скачать виртуальный принтер.

SHOGAL
...
Рейтинг: 0 / 0
Как печатать в Битмап ?
    #32519803
Vagon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Шогал

Спасибо за помощь. Кое-что уже нашел в DDK.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Как печатать в Битмап ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]