[EXEL e VBA] Stampa di documenti

[GoTeNsSj4]

Ciao a tutti! Ho un problema per quanto riguarda la stampa di una tabella. Questa tabella è formata supponiamo da 100 righe, è bordata tutta intorno, e internamente non ha bordi tra le celle. Quando stampo, mi stampa solo le prima 50 righe sul primo foglio, e poi mi fa le altre 50 righe su un'altro foglio. Sul primo foglio però, non mi viene fatto il bordo sulla parte inferiore della pagina. E' possibile far in modo di impostare automaticamente questo bordo, anche all'aggiunta/rimozione di righe in un secondo momento?!

questa è la spiegazione tramite uno schemino:

 FOGLIO1        PAGINA1     PAGINA2
 ----------     ----------
 |        |     |        |              senza bordi
 |        |     |        |
 |        |  =>             |        |
 |        |                 |        |
 ----------                 ----------

 FOGLIO1        PAGINA1     PAGINA2
 ----------     ----------
 |        |     |        |              con bordi "automatici"
 |        |     |________|   ________
 |        |  =>             |        |
 |        |                 |        |
 ----------                 ----------

[GoTeNsSj4]

nessuno riesce a darmi una mano???

[nicola75ss]

L'unica cosa che mi viene in mente è andare in intestazione e piè di pagina ed aggiungere a sinistra una sfilza di underscore. Oppure, se vuoi una linea continua, disegnarla con un qualsiasi programmino e inserire quell'immagine come header e footer.

[GoTeNsSj4]

tramite VBA è possibile riconoscere i bordi di stampa?! Perchè se così fosse, si imposterebbero i bordi in modo automatico tramite VBA.

[GoTeNsSj4]

cambio la domanda precedente chiedendovi:

1) Com'è possibile riconoscere in VBA le celle in cui c'è un'interruzione di pagina?

2) Com'è possibile modificare un'interruzione di pagina in VBA?!

Grazie a tutti!

[nicola75ss]

Dall'editor vba seleziona il foglio che ti interessa e incolla questo codice. Ho aggiunto i bordi nelle colonne a:e, tu adattalo alle tue esigenze.

Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveSheet.Cells.Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


Range("A1").Select
numRighe = Range("A1").End(xlDown).Row

While ActiveWindow.ScrollRow < numRighe
    ActiveWindow.LargeScroll Down:=1
Wend

For Each x In ActiveSheet.HPageBreaks
    'MsgBox x.Location.Row

'bordi superiori
Range("a" & x.Location.Row & ":e" & x.Location.Row).Select
With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
End With

'bordi inferiori
Range("a" & x.Location.Row - 1 & ":e" & x.Location.Row - 1).Select
Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next x
End Sub