[DUG] Setting tabs on a printer

[Marshland Engineering]

I can't send a tab setting to the printer 
The routine works with a memo but fPrn.Handle gives and error.
Something to do with fPrn and system.text   



procedure TfMain.puExpListClick(Sender: TObject);
var
   fPrn: system.text;
   TabArray : array[0..4] of integer;
begin
   TabArray[0] := 350;// div DialogUnitsX;  //Tab Positions
   TabArray[1] := 380; //div DialogUnitsX;
      begin
         with Printer.Canvas do begin
            PrinterSetupDialog1.execute;
            Font.Name := 'Courier New';
            Font.size := 14;
            AssignPrn(fPrn);
            Rewrite(fPrn);
            SendMessage(fPrn,EM_SETTABSTOPS,2,LongInt(@TabArray)) ; // This 
line does not work
            SendMessage(fPrn.Handle,EM_SETTABSTOPS,2,LongInt(@TabArray)) ; 
//This gives an error.
            // SendMessage(memo.Handle,EM_SETTABSTOPS,2,LongInt(@TabArray)) ; 
//This works on the memo.
        end;
      end
   dm.tblExpJob.First;
         begin  // Heading
            with Printer.Canvas do begin
               Font.size := 12;
               WriteLn(fPrn,#10+#10);
               WriteLn(fPrn,'     '+dm.tblData['Desc']+#13+#10);
               Font.Size := 10;
            end;
         end

etc

            WriteLn(fPrn,'  '+dm.tblExpJob.FieldByName('Date').AsString
            +'  '+dm.tblExpJob.FieldByName('Desc').AsString
            +'  '+#9+dm.tblExpJob.FieldByName('Person').AsString)  // Trying to 
format the Person on TAB
         CloseFile(fPrn);

_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject: 
unsubscribe