Avatar billede qermital Nybegynder
19. februar 2003 - 16:25 Der er 6 kommentarer

Udskriv af TXT filer til 3 Forskellige printer !

Hej !

Jeg har en lille stump kode jeg skal have til at printe et antal valgte TXT filer ud.
De txt filer der skal printes vælges i checkbox'sene og når der så trykkes på "ButtomUdskriv" knappen skal lave de valgte så udskrives på deres hver der printer

Info:
Koden er skrevet i borland c++ builder 6
Alle 3 printer er netværks printer
Alle 3 checkbox'se er som defaut TRUE
Hvert stykke checkbox kode har hver deres printer.

Håber der er nogle der kan give et bud på et stykke kode til ButtomUdskriv der kan få den til at skrive ud til printerne

Hvis i mangler info så skriv det lige så skal jeg give jer det, hvis jeg kan.

KODE START
************************************************

void __fastcall TForm1::CheckBox1Click(TObject *Sender){
// Hvis denne er checked vil der blive udskrevet en adresse seddel når der bliver tryyket på udskriv.
  if ( CheckBox1->Checked == TRUE)
  char text2[64]; // Client Ref.
  char text3[56]; // FirmaNavn
  char text4[64]; // Add.
  char text5[64]; // Nr.
  char text6[64]; // By
  char text7[64]; // Post nr.
  char text8[64]; // Produkt navn.
  char text17[64]; // Att. person

  Edit1->GetTextBuf(text3,56);
  Edit2->GetTextBuf(text17,56);
  Edit3->GetTextBuf(text4,56);
  Edit4->GetTextBuf(text5,56);
  Edit5->GetTextBuf(text6,64);
  Edit6->GetTextBuf(text7,64);
  //Edit9->GetTextBuf(text2,64); // undefined symbol 'text2' ?? skal undersøges
  Edit10->GetTextBuf(text8,64);

  ofs.open("AdresseLabel.txt",ios::out);
      ofs << " " << endl;
      ofs << " " << text3 << endl;
      ofs << " " << text17 << endl;
      ofs << " " << text4;
      ofs << " " << text5 << endl;
      ofs << " " << text7;
      ofs << " " << text6 << endl;
      ofs << " " << endl;
      ofs << " " << text3 << endl; //skal laves om til text2
      ofs << " " << text3 << endl; //skal laves om til text2
      ofs << " " << endl;
      ofs << " " << text8 << endl;
  ofs.close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox2Click(TObject *Sender){
  //  if ( CheckBox2->Checked == TRUE)
// Hvis denne er checked vil der blive udskrevet en Rød dato seddel når der bliver tryyket på udskriv.
  // KODE TILGÅR.
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox3Click(TObject *Sender){
  if ( CheckBox3->Checked == TRUE)
// Hvis denne er checked vil der blive udskrevet en return seddel når der bliver tryyket på udskriv.

      char text1[56];
      char text2[64];
      char text8[64];
      char text11[64];
      char text12[64];
      char text17[64];

      Edit13->GetTextBuf(text12,56);
      Edit2->GetTextBuf(text17,56);
      //Edit8->GetTextBuf(text1,56); // 56 antal læste char
      Edit9->GetTextBuf(text2,64);
      Edit10->GetTextBuf(text8,64);
      Edit11->GetTextBuf(text11,64);

      ofs.open("Retur.txt",ios::out);
        ofs << " " << endl;
        ofs << " " << endl;
        ofs << " " << endl;
        ofs << " " << endl;
        ofs << "      " << text8 << endl;
        ofs << " " << endl;
        ofs << " " << endl;
        ofs << " " << endl;
        ofs << "                                                                x" << endl;
        ofs << " " << endl;
        ofs << "    " << text17 << endl;
        ofs << " " << endl;
        ofs << "    " ; // << text1;  tilføj dette når text1 virker
        ofs << "                      " << text2 << endl;
        ofs << "  " << text8; //  << endl
        ofs << "                      " << text11 << endl;
        ofs << "" << endl;
        ofs << "" << endl;
        ofs << "        34100" ;
        ofs << "                  34101" << endl;
      ofs.close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonUdskrivClick(TObject *Sender){
  // Nå der trykkes på denne skal den printe de de checkbox som er TRUE

}

KODE SLUT
************************************************
Avatar billede segmose Nybegynder
19. februar 2003 - 16:40 #1
Du mangler nogle { og } i din kode. fx. lige efter din if, hvilket gør at
din text2 er den eneste der er betinget af if'en.

void __fastcall TForm1::CheckBox1Click(TObject *Sender){
// Hvis denne er checked vil der blive udskrevet en adresse seddel når der bliver tryyket på udskriv.
  if ( CheckBox1->Checked == TRUE){
Avatar billede qermital Nybegynder
19. februar 2003 - 16:50 #2
Ja de manglede også, takker
Men kan du se en løsning på problemmet ?
Avatar billede segmose Nybegynder
19. februar 2003 - 17:20 #3
Fra hjælpe filen:

To print an image, call the BeginDoc method followed by whatever canvas graphics you want to print (including text through the TextOut method) and send the job to the printer by calling the EndDoc method.

This example uses a button and a memo on a form. When the user clicks the button, the content of the memo is printed with a 200-pixel border around the page.
To run this example successfully, include <Printers.hpp> in your unit file.

void __fastcall TForm1::Button1Click(TObject *Sender)

{
  TPrinter *Prntr = Printer();
  TRect r = Rect(200,200,Prntr->PageWidth - 200,Prntr->PageHeight- 200);
  Prntr->BeginDoc();
  for( int i = 0; i < Memo1->Lines->Count; i++)
    Prntr->Canvas->TextOut(200,200 + (i *
  Prntr->Canvas->TextHeight(Memo1->Lines->Strings[i])),
  Memo1->Lines->Strings[i]);
  Prntr->Canvas->Brush->Color = clBlack;
  Prntr->Canvas->FrameRect(r);
  Prntr->EndDoc();
}
Avatar billede qermital Nybegynder
20. februar 2003 - 17:51 #4
Jeg kan godt se hvor du vil hen, men hvordan skal koden se ud for at den vælger at printe de af de 3 chechbox'se der er valgt.
Avatar billede segmose Nybegynder
21. februar 2003 - 09:11 #5
Man skulle kunne gøre noget med properties for TPrinter,
men det har jeg ikke tid til at sætte mig ind i nu, du
kan dog finde informationerne i help under printer eller
TPrinter.
Avatar billede susrn Nybegynder
21. februar 2003 - 09:43 #6
Jeg forstår ikke helt dit problem, den kode du har lavet under hver checkBox, printer den ikke?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester