Работа с принтерами
Участников: 2
Страница 1 из 1
Работа с принтерами
Хотелось бы заставить печатать на определенном принтере и графические картинки и текст. Какие операторы помимо LPRINT есть для реализации работы с принтерами?
Re: Работа с принтерами
в этом случае, лучше использовать функции операционной системы. В примерах (exemples) в папке windows есть такой код. На всяк случай приведу здесь.
ЗЫ. Конешно, если ты используешь Linux или DOS, то тут уже вопрос второй. Все выше изложенное там не применимо.
- Код:
#include "windows.bi"
#include "win/commdlg.bi"
function selectPrinter( ) as string
dim as PRINTDLG pd
pd.lStructSize = sizeof( PRINTDLG )
if PrintDlg( @pd ) = FALSE then
exit function
end if
dim as DEVNAMES ptr dn = GlobalLock( pd.hDevNames )
function = *cast( zstring ptr, cast( byte ptr, dn ) + dn->wDeviceOffset )
GlobalUnlock( dn )
end function
dim as string printerName
printerName = selectPrinter( )
if( len( printerName ) = 0 ) then
print "No printer selected"
end 1
end if
if( open lpt( "LPT:" + printerName + ",EMU=TTY", for output, as #1 ) <> 0 ) then
print "Error: Open failed"
end 1
end if
print "Printing to: "; printerName
print #1, "Hello, world!"
close #1
ЗЫ. Конешно, если ты используешь Linux или DOS, то тут уже вопрос второй. Все выше изложенное там не применимо.
mishana- Сообщения : 8
Дата регистрации : 2008-11-09
Возраст : 38
Откуда : Україна, Шепетівка
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения
|
|