lCodes := EpsonCodes.Create;
lPrinter := Reporter.Create;
with lPrinter, lCodes do
begin
Output := 'LPT1'; { here you could specify a remote printer, like : \computer1printer1}
StartJob;
PrintText(01,01,'Demo for ' + BoldOn + 'MatrixReporter' + BoldOff + ' for .NET');
PrintText(02,01,'Now priting to line 5, column 5 condensed text: ');
PrintText(05,05,CondensedOn + 'Greate ! Isnt it ? ' + CondensedOff);
PrintText(06,01,'This component is free, just for you !');
PrintText(08,01,'Any comment, please email me: ' + ItalicOn + 'paulo_quicoli@hotmail.com ' + ItalicOff);
PrintText(12,20,'THANK YOU FOR TRYING THIS !');
PutText(Eject);
EndJob;
if ckPreview.Checked then
PreviewJob
else
PrintJob;
end;
![]() |
CodigoFonte.net » CodigoFonte.eti.br » Compre De Tudo » Meu Mural » PelamorDeDeus » Todos os Direitos Reservados © 2002/2008 |
Procurando Notebooks, Câmeras Digitais, iPhones?