Forum
Σελίδα 1 από 2 1 2
Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Εκτύπωση Τιτλων σε δευτερη σελίδα (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5046-ektiposi-titlon-se-deyteri-selida.html)

LEO 15-10-18 08:29
Εκτύπωση Τιτλων σε δευτερη σελίδα
 
1 Συνημμένο(α)
Καλημέρα σε όλους ,
Θα χρειασθώ τη βοήθεια σας στο κάτωθι πρόβλημα που με απασχολεί .
Θέλω να εκτυπώσω το συνημμένο φύλλο με τις εξής παραμέτρους .
α) όταν υπάρχει 2σελίδα για εκτύπωση να εμφανίζεται ως εκτύπωση τίτλων στην δεύτερη σελίδα οι γραμμές 3 -8 (και το logo) & 36 -37
β)όταν οι γραμμές 41 έως 66 είναι κενές κατά την εκτύπωση να αποκρύπτoνται.

Ευχαριστώ.

kapetang 15-10-18 19:36
1 Συνημμένο(α)
Καλησπέρα

Σωτήρη, κάνε δοκιμές στο συνημμένο και δες αν σε καλύπτει.

LEO 16-10-18 08:37
Γιώργο καλημέρα και σε ευχαριστώ πολύ ,

Το πρόβλημα παραμένει στην περίπτωση β δηλ. όταν οι γραμμές 41 έως 66 είναι κενές τότε θέλω να τις αποκρύπτει κατά την εκτύπωση , ώστε να εκτυπώνει μόνο την μία σελίδα αν χωράει και να γράφει σελ. 1 από 1.

kapetang 16-10-18 08:53
Καλημέρα

Σωτήρη το κομμάτι του κώδικα:
Κώδικας:
    For Each c In Range("d41:d66")
        If Trim(c) = "" Then
            c.EntireRow.Hidden = True
        End If
    Next
Έπρεπε να κρύβει τις κενές γραμμές.

Ανέβασε το αρχείο που παρουσιάζει το πρόβλημα.

LEO 16-10-18 10:29
1 Συνημμένο(α)
To ανέβασα .
Επίσης παρατήρησα ότι αν αφήσεις μόνο 4 γραμμές τότε αποκρύπτει τις υπόλοιπες και τυπώνει μία αλλά γράφει σελ. 2από 2

kapetang 16-10-18 11:46
2 Συνημμένο(α)
Έκανα κάποιες αλλαγές στον κώδικα και τον δοκίμασα για τις περιπτώσεις 1 και 2 σελίδων (συνημμένο 1 και 2 αντίστοιχα).

Φαίνεται ότι λειτουργεί σωστά …

LEO 16-10-18 12:58
1 Συνημμένο(α)
Γιώργο σε ευχαριστώ πολύ ,

Το πρόβλημα τωρα είναι οτί ενώ τυπώνεται σωστά δεν γεμίζει την πρώτη σελίδα με αποτέλεσμα ενώ έχει χώρο να πηγαίνει και να τυπώνει στην δευτερη σελίδα τα υπόλοιπα είδη .

Ανέβασα ένα παράδειγμα .

kapetang 16-10-18 14:31
1 Συνημμένο(α)
Το πρόβλημα οφείλονταν στο ότι η περιοχή εκτύπωσης περιλάμβανε κάποιες κενές γραμμές κάτω από τη γραμμή TOTAL.

Περιόρισα την PrintArea μέχρι τη γραμμή 70.

Πιστεύω ότι έτσι δε θα υπάρχει πρόβλημα.

Δες το συνημμένο.

LEO 16-10-18 15:26
Σας ευχαριστώ πολύ .

kapetang 16-10-18 15:31
Καλή συνέχεια Σωτήρη.

Να είσαι καλά.


Η ώρα είναι 04:34.
Σελίδα 1 από 2 1 2
Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2