[es] - Stampanje na starim matricnim stampacima?!

MatezYU
NS

Član broj: 4114
Poruke: 1035
*.adanet.co.yu.

Sajt: matezyu.googlepages.com/m..

Profil

Stampanje na starim matricnim stampacima?!

^{02.04.2006. u 08:17}

Kako bi moglo da se odradi, da se stampac (matricni) ponasa kao u DOS-u, tj. da se koriste njegovi interni fontovi i tako dobije i na brzini i dugotrajnosti trake, umesto da mu se daju instrukcje da stampa preko windows-a kada pola sata stampa jednu a4 stranicu. Dakle hteo bi napraviti neki report u delphiju, ali da naredbe koje dobija printeru za stampanje budu tako shvacene da stampac stampa kao iz dosa...

Pozz

http://matezyu.googlepages.com/mojiprojekti

^{02.04.2006. u 08:17}

badam

Član broj: 78553
Poruke: 91
62.108.111.*

Profil

Re: Stampanje na starim matricnim stampacima?!

^{02.04.2006. u 13:12}

Kad mi je to trebalo, snimao sam text koji se štampa u .txt file, a onda ga kopirao na lpt1.
Primer:

Code:

CopyFile(pchar('c:\aa.txt'),pchar('LPT1'),False)

^{02.04.2006. u 13:12}

miksi

Član broj: 5874
Poruke: 61
*.ptt.yu.

Profil

Re: Stampanje na starim matricnim stampacima?!

^{03.04.2006. u 06:50}

Imas razne komponente, pa googlaj, ja koristim z-report sa sorsom, pa je to zgodno jer mozes menjati.Dobra strana su i razne mogucnosti kondenzovane stampe.

^{03.04.2006. u 06:50}

jozimir
Sustar Jozef
Zajecar

Član broj: 19546
Poruke: 13
*.ptt.yu.

Profil

Re: Stampanje na starim matricnim stampacima?!

^{03.04.2006. u 12:53}

Instaliraj 'Generic / Text Only' iz spiska ponudjenih stampača.
Vezi ga za LPT1: odnosno za port koji ti je vezan printer..
i ... vozi misko

^{03.04.2006. u 12:53}

juha5803

Član broj: 74797
Poruke: 53
*.teol.net.

Profil

Re: Stampanje na starim matricnim stampacima?!

^{24.08.2006. u 07:21}

Pozdrav,

Imam sličan problem. Instaliran LX-300, u QReportu veličina strane CUSTOM, štampač podešen na veličinu strane 4 inča, ipak kad god odštampam obrazac izađe čitava A4 stranica. Šta ne vidim???

Fontove nekako sredim

^{24.08.2006. u 07:21}

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.dsl.siol.net.

Profil

Re: Stampanje na starim matricnim stampacima?!

^{28.08.2006. u 23:41}

Citat:

Imam sličan problem. Instaliran LX-300, u QReportu veličina strane CUSTOM, štampač podešen na veličinu strane 4 inča, ipak kad god odštampam obrazac izađe čitava A4 stranica. Šta ne vidim???

IMHO, QReport se nekako ne snalazi bas najbolje sa custom velicinama papira, mada to verovatno zavisi i od verzije.
Ja sam par puta morao da koristim CrystalReport od VB 6-ice uvezen kao AX kontrolu, npr. za stampanje uplatnica...

A i epsoni imaju obicaj da na kraju stampe odrade FF (form feed), pa izadje cela strana. Sta ti kaze TQReport.Preview?

^{28.08.2006. u 23:41}

juha5803

Član broj: 74797
Poruke: 53
*.teol.net.

Profil

Re: Stampanje na starim matricnim stampacima?!

^{02.09.2006. u 14:28}

Preview da izgled i velicinu koja treba. Problem je u tome sto kod XP nema (ili nevidim) mogucnost custom velicine strane u properties od printera. Zalosno sto na W98 to radi bez problema. A nemam mogucnosti da sve vratim na W98.

^{02.09.2006. u 14:28}

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 3396
*.static.po.sbb.co.yu.

Jabber: xfiles@elitesecurity.org
Sajt: www.antivari.com

Profil

Re: Stampanje na starim matricnim stampacima?!

^{04.09.2006. u 19:01}

Bio je davno neki kod za C++ Builder:
http://tinyurl.com/fqe3y
... pa pretpostavljam da se lako moze transfor,isati na Delphi.

FREEWARE
Di rečnik, v1.0.058 (srp-eng/eng-srp priručni rečnik)
http://www.antivari.com

^{04.09.2006. u 19:01}

chachka
Srđan Mijatov
Subotica

Član broj: 53780
Poruke: 534
*.dialup.neobee.net.

Sajt: www.baze-podataka.net

Profil

Re: Stampanje na starim matricnim stampacima?!

^{04.09.2006. u 19:53}

Code:

procedure PrintToGeneric(pPrinterName: String; pText: TStrings; pReportName: String; pNoOfColumns: Integer = 80; pMaxNoOfLines: Integer = 66);

  var
    lLineNo, lPageNo: Integer;
    BytesWritten    : DWORD;
    hPrinter        : THandle;
    DocInfo         : TDocInfo1;

  (** procedure PrintOut
   *  Stampa jednu liniju teksta.
   *)
  procedure PrintOut(const pLine: String);
  begin
    if not WritePrinter(hPrinter, @pLine[1], Length(pLine), BytesWritten) then Abort;
  end;

  (** procedure SetupGenericPrinter
   *  Postavlja gustinu karaktera u zavisnosti od broja kolona koje treba stampati
   *  Radi za Epson LX-300 i slicne stampace
   *)
  procedure SetupGenericPrinter;
  begin
    PrintOut(ESC+'x'+#0); // draft
    if      pNoOfColumns <=  80 then PrintOut(ESC+'P'+DC2)  // 10cpi + not condensed
    else if pNoOfColumns <=  96 then PrintOut(ESC+'M'+DC2)  // 12cpi + not condensed
    else if pNoOfColumns <= 137 then PrintOut(ESC+'P'+SI )  // 10cpi + condensed
    else                             PrintOut(ESC+'M'+SI ); // 12cpi + condensed
  end;

begin

  if not WinSpool.OpenPrinter(PChar(pPrinterName), hPrinter, nil) then
    raise Exception.Create('Stampac pod imenom '+pPrinterName+' nije pronadjen!');

  try

    DocInfo.pDocName    := PChar(pReportName);
    DocInfo.pOutputFile := nil;
    DocInfo.pDataType   := 'RAW';

    if StartDocPrinter(hPrinter, 1, @DocInfo) = 0 then Abort;

    try

      if not StartPagePrinter(hPrinter) then Abort;

      try

        SetupGenericPrinter;

        for lPageNo := 0 to pText.Count div pMaxNoOfLines do begin
          for lLineNo := 0 to pMaxNoOfLines-1 do begin
            PrintOut(pText.Strings[pMaxNoOfLines*lPageNo+lLineNo]+CR+LF);
          end;
          PrintOut(FF);
        end;

      finally
        EndPagePrinter(hPrinter);
      end;

    finally
      EndDocPrinter(hPrinter);
    end;

  finally
    WinSpool.ClosePrinter(hPrinter);
  end;

end;

"The best code is no code at all." - Zidar
"biggest obstacle to learning SQL is unlearning procedural programming" - Joe Celko

^{04.09.2006. u 19:53}

chachka
Srđan Mijatov
Subotica

Član broj: 53780
Poruke: 534
85.222.162.*

Sajt: www.baze-podataka.net

Profil

Re: Stampanje na starim matricnim stampacima?!

^{18.12.2006. u 14:04}

Da bi gornja procedura radila potrebno je jos i:

Code:

uses
  Classes, Windows, SysUtils, WinSpool;
const
  LF  = #10;
  FF  = #12;
  CR  = #13;
  SI  = #15;
  DC2 = #18;
  ESC = #27;

"The best code is no code at all." - Zidar
"biggest obstacle to learning SQL is unlearning procedural programming" - Joe Celko

^{18.12.2006. u 14:04}

Dejan1985

Član broj: 151045
Poruke: 2
*.static.va.sbb.co.yu.

Profil

Re: Stampanje na starim matricnim stampacima?!

^{10.07.2007. u 10:10}

I ja imam taj problem sa uplatnicama!
Potrebno je da stampac stampa format uplatnice,
a ne A4, posto se radi o kontinuiranom papiru...
Da li mogu da zamolim bilo koga ko moze da mi da
opsirnije objasnjene za postupak stampanja istih!
Vidim da ste stampali uplatnice, pre...
Hvala

^{10.07.2007. u 10:10}