[es] - stampa podataka datoteke

maja91

Član broj: 115086
Poruke: 16
80.93.231.*

Profil

^{03.10.2006. u 19:49}

Hvala IDE:
ja sam u BCB6 kreirala jedan RichEdit i jedan Button.
1. prvo ucitam datoteku primer.txt sa diska u RichEdit
2. zatim sadrzaj RichEdita posaljem na stampac kada kliknem na Button .... evo koda samo za dogadjaje :

Code:

[//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
char const *Path = "C:\\primer.txt";
RichEdit2->Lines->LoadFromFile(Path);

}
//-----------------------------------------------------
[void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(PrintDialog1->Execute())
RichEdit2->Print(Form1->Caption);

}
//---------------------------------------------------------------------------

]

i ovo RADI.
PITANJE: DA LI JE OVO JEDINI NACIN DA SE PODACI IZ NEKOG TXT FILE POSALJU IZ PROGRAMA NA PRINTER??

^{03.10.2006. u 19:49}

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 3395
89.216.236.*

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

Profil

Re: stampa podataka datoteke

^{03.10.2006. u 20:09}

Što se tiče upotrebe FormCreate() događaja, pogledaj ovde:
http://www.elitesecurity.org/t129748-0#843689
http://www.elitesecurity.org/t164272-0#1068638

Što se tiče štampanja, pogledaj BCB Help: printer example

Evo neki moj stari aljkavi kod za štampanje stavki (selektovanih ili svih)
iz TListView kontrole. Iz primera možeš lako da uhvatiš logiku...

Code:

void TLanMsgMainForm::PrintItems( bool Selected )
{

   ListView->Enabled = false;

   int margin_pixels = 30;

   Printer()->BeginDoc();

   if ( Selected )
      Printer()->Title = X(IDS_SER_MAIN_PRINTING_SELECTED);
   else
      Printer()->Title = X(IDS_SER_MAIN_PRINTING_ALL);

   Printer()->Canvas->Font->Name    = "Terminal";
   Printer()->Canvas->Font->Size    = 9;
   Printer()->Canvas->Font->Charset = EASTEUROPE_CHARSET;
   Printer()->Canvas->Font->Pitch   = fpFixed;

   int line = 0;
   int real_line = 0;

   for ( int i=0; i<ListView->Items->Count; i++ )
   {

      if ( Selected && !ListView->Items->Item[i]->Selected )
         continue;

      ++line;
      ++real_line;

      AnsiString LineToPrint =
         Format( "%4s.%4s%10s%12s%11s%10s%25s%30s",
         ARRAYOFCONST(( (IntToStr(real_line)),
                        (ListView->Items->Item[i]->SubItems->Strings[0]),
                        (ListView->Items->Item[i]->SubItems->Strings[1]),
                        (ListView->Items->Item[i]->SubItems->Strings[2]),
                        (ListView->Items->Item[i]->SubItems->Strings[3]),
                        (ListView->Items->Item[i]->SubItems->Strings[4]),
                        (ListView->Items->Item[i]->SubItems->Strings[5]),
                        (ListView->Items->Item[i]->SubItems->Strings[6]) )) );

      int TH = Printer()->Canvas->TextHeight( LineToPrint );
      int top = margin_pixels + ( line * TH );

      if ( ( top + 2*margin_pixels + TH )  >=  Printer()->PageHeight )
      {
         Printer()->NewPage();
         line = 1;
         top = margin_pixels + ( line * TH );
      }

      Printer()->Canvas->TextOut( margin_pixels, top, LineToPrint );

   }

   Printer()->NewPage();

   Printer()->EndDoc();

   ListView->Enabled = true;

}

_{[Ovu poruku je menjao X Files dana 03.10.2006. u 21:48 GMT+1]}

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

^{03.10.2006. u 20:09}

IDE

Član broj: 53403
Poruke: 564
*.crnagora.net.

Profil

Re: stampa podataka datoteke

^{03.10.2006. u 21:55}

Citat:

PITANJE: DA LI JE OVO JEDINI NACIN DA SE PODACI IZ NEKOG TXT FILE POSALJU IZ PROGRAMA NA PRINTER??

Naravno da nije...

npr. mozes i ovako odstampati fajl:

Code:

String fajl ="C:\\primer.txt";
ShellExecute(0,"print",fajl.c_str(),"","",1);

i to bez otvaranja prethodno tog teksta...
ma ne znam, ima vjeovatno mnogo mnogo nacina za odstampati nesto...

Jedan predlog:

Nauci da koristis klasu TString za rad sa stringovima...Mnogo je lakse od "char const *Path =..."

there's something out there
waiting for us,
and it ain't no man...

^{03.10.2006. u 21:55}