Esta é uma parte de uma procedure que eu tenho que joga um recibinho direto
na impressora default do windows, sem perguntar nada a ninguem.
Pegue o exemplo e utilize a imaginação para fazer o que quiser no seu
relatorio.
[]´s
Vinicius S Pinto
procedure TDM2.ImprimeCapaPrinter;
var
Wcol, Wlin, Wtot, Wdois: SmallInt;
WtotPg: Currency;
Begin
Wdois := 0;
Printer.Orientation := poPortrait;
with Printer do begin
BeginDoc;
Wcol := 300;
Wlin := 250;
Wtot := 120;
Canvas.Pen.Width := 3;
Canvas.Rectangle(0200, 0200, 2000, 2000);
Canvas.Font.Name := 'Arial';
Canvas.Font.Size := 14;
Canvas.TextOut(Wcol, Wlin, 'Nº do PEDIDO: ' +
DM2.BDPEDIDOSCDPEDIDO.asString);
Canvas.Font.Size := 12;
Canvas.TextOut(Wcol + 850, Wlin, 'Data do Evento: ' +
DM2.BDPEDIDOSDATAEVENTO.asString);
Canvas.MoveTo(0200, Wlin + 80);
Canvas.LineTo(2000, Wlin + 80);
Wlin := (Wlin + Wtot);
Canvas.Font.Size := 10;
Canvas.TextOut(Wcol, Wlin, 'Nome da Criança: ');
Wlin := (Wlin + 70);
Canvas.Font.Size := 14;
Canvas.TextOut(Wcol + 150, Wlin, DM2.BDSERVICOSNOME.AsString);
Wlin := (Wlin + 90);
Canvas.TextOut(Wcol, Wlin, 'Valor a Receber: ' +
FormatFloat('###,##0.00', DM2.BDPEDIDOSVALOR.AsCurrency - WtotPG));
Wlin := (Wlin + 90);
Canvas.TextOut(Wcol, Wlin, 'Valor Recebido:
R$___________________');
Enddoc;
end;
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Eduardo Oliveira silva
Enviada em: terça-feira, 3 de fevereiro de 2009 16:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvidas com Impressão
Boa Noite,
Alguém sabe como eu posso enviar algo direto para impressora padrão
instalada no windows
sem que abra aquele telinha de impressão..
Ex:
Tenho um botão pra grava dados no banco e quando clicar quero imprimir um
comprovante diretamente na impressora.
valeu.
--
Eduardo de Oliveira
Fone: 8448-4117
msn: kad...@hotmail.com
[As partes desta mensagem que não continham texto foram removidas]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
