Since I've been unable to create an account to register a bug I'm going
to post this file here. It demonstrates that when printing landscape
text doesn't show on pages beyond the first. I'm afraid my patience for
half functional software is at an end.
-Jon
--
Jon Foster
JF Possibilities, Inc.
[EMAIL PROTECTED]
541-410-2760
Making computers work for you!
{*********************************************************************
* Printer test program <[EMAIL PROTECTED]> *
*********************************************************************}
unit fptr_test;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
PrintersDlgs;
type
{ TForm1 }
TForm1 = class(TForm)
btnPrint: TButton;
PrintDialog1: TPrintDialog;
procedure btnPrintClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
uses Printers;
{ TForm1 }
procedure TForm1.btnPrintClick(Sender: TObject);
var
pg: integer;
begin
if not PrintDialog1.execute then exit; {need to init printer()}
with printer do begin
orientation:=poLandscape; {works fine in portrait}
Title:='TPrinter test';
BeginDoc;
try
for pg:=1 to 2 do begin
if pg>1 then NewPage;
with canvas do begin
TextOut(100,100,'Is there text?');
{prints on pg 1 not pg 2}
moveto(100,125);
LineTo(200,125); {prints on both pages}
end;
end;
finally
EndDoc;
end;
end;
end;
initialization
{$I fptr_test.lrs}
end.
