Como faço para não deixar imprimir se não existir impressora.
Tipo se a pessoa quer imprimir, da um erro de Impressora não instalada.
Tenho um que mostra as impressoras, mas esse não serve.
Obrigado a todos
Impressoras
Started By hiroyugi, 03/12/2003, 15:38
1 reply to this topic
#1
Posted 03/12/2003, 15:38
Onde ha vontade, ha um caminho... Onde ha boa vontade, ha vários caminhos
#2
Posted 03/12/2003, 17:13
Tem um fragmento de código que faz isso... mas eu nunca o testei, o mais importante é na parte except, onde ele pega o nome do erro
try
JustTest := Printer.Orientation;
IsPrinterSetup := true;
except
on EPrinter do IsPrinterSetup := false;
end;
if not IsPrinterSetup then
begin
SayAboutIt; // Uma função ou procedure qualquer
ExitProgram; // Um código qualquer
End;
try
JustTest := Printer.Orientation;
IsPrinterSetup := true;
except
on EPrinter do IsPrinterSetup := false;
end;
if not IsPrinterSetup then
begin
SayAboutIt; // Uma função ou procedure qualquer
ExitProgram; // Um código qualquer
End;
__________________________________________
The Tamer
Quando morrer, escrevam em minha lápide: </life>
Blog: http://www.dtsoftware.eti.br/
MCWD - Macromedia Certified Web Designer MX
The Tamer
Quando morrer, escrevam em minha lápide: </life>
Blog: http://www.dtsoftware.eti.br/
MCWD - Macromedia Certified Web Designer MX
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)