Delphi

[Nikoletta6]

Γεια σας...Θελω να ρωτήσω αν ξέρει κανείς πως να κάνω εκτύπωση σε ένα PageControl για καθε TabSheet ξεχωριστα με case!Ευχαριστώ...!

[vasper]

Γεια σας...Θελω να ρωτήσω αν ξέρει κανείς πως να κάνω εκτύπωση σε ένα PageControl για καθε TabSheet ξεχωριστα με case!Ευχαριστώ...!

Βασικά θες κάτι σαν και αυτό αν εννοείς να τυπώσεις τα περιεχόμενα του tabsheet:

var
  dc: HDC;
begin
  dc := GetDC(tabsheet1.Handle);
  Image1.Height:=TabSheet1.Height;
  Image1.Width:=TabSheet1.Width;
  Image1.canvas.Handle := DC;

  /// ...κάνε κάτι με την εικόνα (δώσε την σε ένα qrImage)

  ReleaseDC(tabsheet1.Handle, dc);
  
end;

[Nikoletta6]

Δεν εχω εικονα,εχω GroupBox μέσα στα TabSheet.Θέλω τα περιεχμόμενα τους με εντολή case!

[vasper]

Δεν εχω εικονα,εχω GroupBox μέσα στα TabSheet.Θέλω τα περιεχμόμενα τους με εντολή case!

Τί ακριβώς θες να κάνεις; Αυτός ο κώδικας που σου έδωσα παίρνει την εικόνα ενός TabSheet, δηλαδή όλα τα περιεχόμενά του όπως θα τα έβλεπες αν έκανες Print Screen.

Από το Groupbox τί θες να εκτυπώσεις; Το κείμενο των επιλογών; Το ίδιο το Groupbox; Η ερώτησή σου είναι πολύ γενική...

[Nikoletta6]

Εχω ενα GroupBox κ πάνω του 4 TabSheet θέλω οταν πατάω το κουμπί Print να εκτυπώνει τα Tab ξεχωριστα,να επιλέγω εγω πιο.

Ευχαριστω πολύ!

[yiapap]

Nikoletta6,
Αυτό που ρωτάει ο vasper είναι θέλεις να τυπώνεις το κάθε tab ΣΑΝ ΕΙΚΟΝΑ, δηλαδή σα να έχεις κάνει capture όπως το βλέπεις (με τις γωνίες, τα χρώματα κτλ.) ή μόνο επιλεγμένες πληροφορίες από τα αντικείμενα (π.χ. μόνο τις τιμές και τις λεζάντες των αντικειμένων);

[vasper]

Θες όλο το κώδικα δηλαδή; Ο ποιό δύσκολος κώδικας είναι να πάρεις την εικόνα του TabSheet.

Για να σε βοηθήσω χρειάζομαι περισσότερα στοιχεία:

1) Θα χρησιμοποιήσεις Quick Report, ή θες να στείλεις εκτύπωση απευθείας;
2) Εννοείς PageControl με Tabsheets και μέσα στα Tabsheet έχεις Groupbox; Γιατί με μπέρδεψες.
3) Iterators ξέρεις να χρησιμοποιείς (πχ for i:=0 to PageControl1.Pagecount-1 do);

Όταν εκτυπώνεις, να ξέρεις ότι εκτυπώνεις πάντα εικόνα. Δηλαδή αν έχεις ένα Datagrid μέσα στο Tabsheet σου, δεν θα εκτυπωθούν όλες οι γραμμές του Datagrid, μόνο οι ορατές. Διαφορετικά θες να τυπώσεις τα περιεχόμενα κάθε component.. και όχι το tabsheet.

[Nikoletta6]

μονο τις πληροφοριες

1)θέλω να στελνω εκτυπωση κατευθείαν
2)ναι μεσα στο TabSheet εχω Groupbox k RadioGroup κ θέλω να εμφανίζονται μονο οι τιμεσ κ οι λεζάντες...
3)ξερω να χρισιμοποιω Iterators
νομίζω οτι θέλω αυτο που ειπες στο τέλος...να τυπώνω τα περιεχόμενα κάθε component.. και όχι το tabsheet.
Σε ευχαριστω για την ώρα σου!

[vasper]

1)θέλω να στελνω εκτυπωση κατευθείαν
2)ναι μεσα στο TabSheet εχω Groupbox k RadioGroup κ θέλω να εμφανίζονται μονο οι τιμεσ κ οι λεζάντες...
3)ξερω να χρισιμοποιω Iterators
νομίζω οτι θέλω αυτο που ειπες στο τέλος...να τυπώνω τα περιεχόμενα κάθε component.. και όχι το tabsheet.
Σε ευχαριστω για την ώρα σου!

Θα χρειαστείς να συνδιάσεις αρκετά πράγματα. Δεν έχω χρόνο τώρα να σου φτιάξω όλο τον κώδικα, αλλά μπορείς να δεις εδώ: http://www.delphibasics.co.uk/Article.asp?Name=Printing πως κάνουν εκτύπωση απευθείας σε εκτυπωτή.

για να διαβάζεις τα components θα πρέπει να χρησιμοποιήσεις ένα loop για όλα τα components πάνω σε μία φόρμα και να βρεις τον Parent τους. Αν το parent τους είναι το tabsheet που θέλεις τότε κοιτάς το είδος του component και αναλόγως πράττεις πχ

for i:=0 to  form1.ComponentCount-1 do
  begin
    if form1.components[i].parent is TTabsheet then
      if TTabSheet(form1.components[i].parent).Pageindex=mypageIndex then // η mypageIndex είναι μεταβλητή για  το index του Tabsheet που θες
        begin
           if form1.components[i] is TGroupBox then
             begin
                 // Εδώ μπαίνει ο κώδικας για την εκτύπωση κάθε string ή component του GroupBox
             end;
           if form1.components[i] is TRadioGroupBox then
             begin
                // Εδώ μπαίνει ο κώδικας για την εκτύπωση κάθε string και επιλογής του RadioGroupBox
             end;

        end;
  
  end;

Όπως καταλαβαίνεις για να κάνεις αυτό που θέλεις θα πρέπει να ρήξεις λίγο διάβασμα. Αυτόματος ή εύκολος τρόπος δεν υπάρχει.

Ελπίζω να σε βοήθησα. Αν έχεις συγκεκριμένες ερωτήσεις ή κολήσεις κάπου στείλε μου pm

[Nikoletta6]

Σ'ευχαριστω πολυ,θα το κοιταξω!