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 >>>>>