[VBA] Εκτύπωση Τιτλων σε δευτερη σελίδα

[LEO]

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

Ευχαριστώ.

[kapetang]

Καλησπέρα

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

[LEO]

Γιώργο καλημέρα και σε ευχαριστώ πολύ ,

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

[kapetang]

Καλημέρα

Σωτήρη το κομμάτι του κώδικα:

    For Each c In Range("d41:d66")
        If Trim(c) = "" Then
            c.EntireRow.Hidden = True
        End If
    Next

Έπρεπε να κρύβει τις κενές γραμμές.

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

[LEO]

To ανέβασα .
Επίσης παρατήρησα ότι αν αφήσεις μόνο 4 γραμμές τότε αποκρύπτει τις υπόλοιπες και τυπώνει μία αλλά γράφει σελ. 2από 2

[kapetang]

Έκανα κάποιες αλλαγές στον κώδικα και τον δοκίμασα για τις περιπτώσεις 1 και 2 σελίδων (συνημμένο 1 και 2 αντίστοιχα).

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

[LEO]

Γιώργο σε ευχαριστώ πολύ ,

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

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

[kapetang]

Το πρόβλημα οφείλονταν στο ότι η περιοχή εκτύπωσης περιλάμβανε κάποιες κενές γραμμές κάτω από τη γραμμή TOTAL.

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

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

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

[LEO]

Σας ευχαριστώ πολύ .

[kapetang]

Καλή συνέχεια Σωτήρη.

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