Printing

[ Delphi ] – Print a canvas

uses
  Printers;
procedure PrintText(Text: string);
begin
  with Printer do
  begin More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – List print-jobs in a printer-queue

uses
  Winspool, Printers;
function GetCurrentPrinterHandle: THandle;
var
  Device, Driver, Port: array[0..255] of Char;

  hDeviceMode: THandle;
begin
  Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
  if not OpenPrinter(@Device, Result, nil) then More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...

[ Delphi ] – Print text

var
  F: TextFile;
begin
  AssignFile(F, 'LPT1');// LPT2,COM1,COM2...
  Rewrite(F); More >

 

Very PoorPoorRegularGoodVery Good ( Rate this post ! )
Loading ... Loading ...