Come posso impedire l'interruzione di pagina sulle celle unite?

zuzzurellone76 

Può anche essere impostato automaticamente con VBA, qui solo un piccolo esempio, deve solo essere impostato come desiderato.

Devi giudicare se lo sforzo è utile o se non è più facile adattare i fogli di lavoro.

Private Sub CommandButton1_Click()
Dim dummy As Boolean
Dim xelRows As Long, i As Long
Application.ScreenUpdating = False
'On Error Resume Next
With ActiveSheet
.ResetAllPageBreaks
End With
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$7"
.PrintArea = "$A$1:$E$89"
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.LeftFooter = " Creato da Nikolino"
.CenterFooter = " Nikolino era qui "
.RightFooter = "&P"
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 6
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.85)
.BottomMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.2)
End With
Application.ScreenUpdating = True
dummy = MsgBox("Se non ti piace l'anteprima di stampa, modificala manualmente ", vbOKOnly, 
" titolo ")
ActiveWindow.SelectedSheets.PrintPreview
'Visualizza un oggetto così come verrà stampato.
End Sub	

 Ultimo pensiero:

oppure puoi prima copiare l'intera area in una tabella di aiuto.

Effettuare lì le regolazioni della pressione e quindi svuotare nuovamente.

Ciò significa che le tue attuali schede tecniche possono ancora essere utilizzate.

Se fai tutto in un foglio di calcolo nascosto, nessuno se ne accorgerà.

Spero che questo ti abbia aiutato.

Nikolino

So di non sapere niente (Socrate)

* Segna e vota gentilmente questa risposta se aiuta, per favore, poiché sarà utile per più membri della Comunità che leggono qui.