Newsgroup: it.comp.lang.delphi
Titolo: Stampa con stampante ad aghi

Gentili iscritti, sono alla frutta. Prima di mandarmi dal verduriere sono a
chiedervi cortesemente se sapete dirmi come stampare un semplice file o
stringa su di una stampante ad aghi: il problema è che stampa correttamente
usando una normale stampante a getto di inchiostro HP. Se provo ad inviare
il file su di una Tally T2265, vengono generati dei caratteri
incomprensibili anche se cerco di stampare solo una riga. Di seguito allego
un listato orrendo, quasi tutto commentato, con esempi presi qua e là in
questo newsgroup ma soprattutto su newsgroup americani. La stampe funzionano
TUTTE su HP e NESSUNA su questa stampante a getto d'inchiostro. Un aiuto, un
hint, un tips, un tricks, per favore???? Grazie!!
procedure TForm1.Button3Click(Sender: TObject);
const ESC = #27;
var FileStampa, PrintText:TextFile;
line, i:integer;
Text1 : string;
ofile,ifile: textfile;
s:string;
begin
 //primo funziona   if (PrintDialog1.Execute) then
//    begin
{      Printer.BeginDoc;
 
Printer.Canvas.Font.Name
 := 'Courier New';
      Printer.Canvas.Font.Size := 12;
      Printer.Canvas.TextOut (0, 0, Memo1.Text);
      Printer.EndDoc;}
{secondo        Line: Integer;
  PrintText: TextFile;   {declares a file variable
...
if PrintDialog1.Execute then begin
  AssignPrn(PrintText);   {assigns PrintText to the printer
  Rewrite(PrintText);     {creates and opens the output file
  Printer.Canvas.Font := Memo1.Font;  {assigns Font settings to the canvas
  for Line := 0 to Memo1.Lines.Count - 1 do
  Writeln(PrintText, Memo1.Lines[Line]); {writes the contents of the Memo1
to the printer object
  CloseFile(PrintText); {Closes the printer variable}
//end;
        //AssignFile(FileStampa,'LPT1:');
     //   AssignPrn(FileStampa);
     //   Rewrite(FileStampa);
         //     Writeln(FileStampa, Memo1.Text);
        WriteLn(FileStampa,'PROVA');
     //   CloseFile(FileStampa);
//    end;
/***************************
   // if PrintDialog1.Execute then
   // begin
          //PrintDialog1.PrintToFile := True;
    //      AssignPrn(FileStampa);
    //      ReWrite(FileStampa);
//          Printer.Canvas.Font := Memo1.Font;
     //    for Line := 0 to Memo1.Lines.Count - 1 do
       //       WriteLn(FileStampa, Memo1.Lines[Line]);
    //      System.Close(FileStampa);
    // end;
///**************************
//    AssignFile(FileStampa,'LPT1:');
//    Text1 := '10 caratteri per pollice';
  //  AssignPrn(FileStampa);
  //  Rewrite(FileStampa);
  //     Writeln(FileStampa, '#27%3<n1>;<n2>'prova');
   //    CloseFile(FileStampa);
assignfile(ofile, 'lpt1');
rewrite(ofile);
assignfile(FileStampa, 'prn.txt');
reset(FileStampa);
while not eof(FileStampa) do
 begin
  readln(FileStampa,s);
  writeln(ofile, s);
 end;
writeln(ofile,#12); // <--- final formfeed if needed
closefile(ofile);
closefile(FileStampa);
    // copyfile(pchar('prova'),'LPT1',false)
end;
--
Paolo Guagliumi

stringa su di una stampante ad aghi
giorni fa era stato citato da Mik. questo pacchetto free per stampare su stampante ad aghi
http://www.torry.net/vcl/reports/reportdesigners/zreport.zip
Cerca anche nella categoria: 
http://www.torry.net/reportdesigners.htm
Per mio scrupolo ho cercato nei motori di ricerca meno noti quali dogpile, rolist,
ma non ho trovato nulla ugualmente....
Morde

 semplice file o stringa su di una stampante ad aghi: il problema è
Io girovagando un po' avevo trovato PReport su torry, ma non l'ho ancora
provato.
--
Jax

 Gentili iscritti, sono alla frutta. Prima di mandarmi dal verduriere ...
Soluzione trovata! Il codice precedente stampava su di una stampante ad aghi
Panasonic ma non sulla Tally! Quindi il problema era di driver. Come
scavalcare il driver? Usare il DOS e quindi salvare il contenuto da stampare
in un file e mandarlo attraverso il comando CopyFile direttamente su LPT1!
In due righe e tutto si è risolto.
Memo1.Lines.SaveToFile('FileStampa.txt');
CopyFile('FileStampa.txt', 'LPT1', false);
Un Grazie comunque a Morde e Jax per i suggerimenti!
Ps: e non ho dovuto andare dal verduriere!
--
Paolo Guagliumi
http://web.tiscali.it/infosapere

 > semplice file o stringa su di una stampante ad aghi: il problema č
