printanje?

Code:

Var
 f : TextFile;
begin
     AssignFile(f, 'LPT1:');
     Rewrite(f);
     try
       WriteLn(f, 'Jedna linija teksta');
     finally
       CloseFile(f);
     end;
end;

Code:

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TEdit) then
with (Form1.Components[i] as TEdit) do
s:=s+#13#10+Text;
end;
AssignPrn(nesto);
Rewrite(nesto);
Writeln(nesto, s);
System.CloseFile(nesto);
end;

Code:

var
i:integer;
s:string;
nesto: TextFile;
begin
s:=EmptyStr;
for i:=0 to Form1.ComponentCount-1 do
begin
if (Form1.Components[i] is TEdit) then
with (Form1.Components[i] as TEdit) do
s:=s+#13#10+Text;
end;
AssignFile(nesto, 'LPT1:');
Rewrite(nesto);
try
  Writeln(nesto, s);
finally
  System.CloseFile(nesto);
end;
end;

Code:

Uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  c: TControl;
  i: Integer;
  topX, topY: Integer;
begin
  printer.begindoc;
  try
    { Scale printer to screen resolution. }
    SetMapMode( printer.canvas.handle, MM_ANISOTROPIC );
    SetWindowExtEx(printer.canvas.handle,
                   GetDeviceCaps(canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(canvas.handle, LOGPIXELSY),
                   Nil);
    SetViewportExtEx(printer.canvas.handle,
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSX),
                   GetDeviceCaps(printer.canvas.handle, LOGPIXELSY),
                   Nil);
    topX := 10;
    topY := 10;
    for i:= 0 to controlcount-1 do begin
      c:= controls[i];
      If c Is TWinControl Then
        TWinControl(c).paintto( printer.canvas.handle,
                                c.left + topX,
                                c.top + topy );
    end;
  finally
    printer.enddoc;
  end;
end;

Code:

unit AO;

interface

Uses Printers;

Code:

unit AO;

interface

Uses Classes, SysUtils, Printers;