­ã´£³¡ªL

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim xArea As Range
With ActiveSheet
¡@¡@¡@.PageSetup.PrintArea = ""  '­«³]¦C¦L½d³ò
¡@¡@¡@.ResetAllPageBreaks '­«³]¤À­¶½u
¡@¡@¡@If .HPageBreaks.Count Mod 2 = 0 Then 'ÀË´ú­¶¼Æ¬O§_¬°©_¼Æ
¡@¡@¡@¡@¡@Set xArea = Range(.[A1], .UsedRange.Offset(1, 0))
¡@¡@¡@¡@¡@xArea.Name = "'" & .Name & "'!Print_Area" '³]©w¦C¦L½d³ò
¡@¡@¡@¡@¡@.HPageBreaks.Add before:=Rows(xArea.Rows.Count + 1) '¥[¤J¤À­¶½u
¡@¡@¡@End If
End With
End Sub

¦C¦L«e¡A¥i¥ý¡e¹wÄý¦C¦L¡f¬d¬Ý®ÄªG¡I¡I
¡@