Skip to content

Instantly share code, notes, and snippets.

View cesarjr's full-sized avatar

Cezinha Anjos cesarjr

55 followers · 22 following
View GitHub Profile
@cesarjr
cesarjr / gist:4313561
Created December 16, 2012 21:58
Impressão direta em Delphi utilizando o Gerenciador de Impressões do Windows sem passar pelo driver do fabricante.
uses
WinSpool;
procedure TFrmMain.btnImprimir(Sender: TObject);
var
Handle: THandle;
CaracteresImpressos: DWORD;
Documento: TDocInfo1;
TextoAnsiString : AnsiString;
TextoUnicode: string;
@cesarjr
cesarjr / gist:4313190
Created December 16, 2012 21:13
Impressão utilizando acesso direto a porta com Delphi
var
Impressora: TextFile;
begin
AssignFile(Impressora, 'lpt1:');
ReWrite(Impressora);
WriteLn(Impressora, 'Olá Mundo!');
WriteLn(Impressora, 'Isto é uma impressão direta.');
WriteLn(Impressora, #15'Imprimindo em condensado.'#18);