DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
'-----Eğer 2. sayfaya taşmış ise satırları tek sayfaya sığdır-------
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.Zoom = 100
MsgBox "sayfa: " & ActiveSheet.PageSetup.Pages.Count
If ActiveSheet.PageSetup.Pages.Count = 2 Then
ActiveWindow.View = xlPageBreakPreview
If ActiveSheet.HPageBreaks(1).Location.Row <= 65 Then
MsgBox "satır: " & ActiveSheet.HPageBreaks(1).Location.Row
.Zoom = False
.FitToPagesWide = 0
.FitToPagesTall = 1
End If
ActiveWindow.View = xlNormalView
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=yazdir, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.PageSetup.Zoom = 100
Err.Clear
'--------------------------------------------------------------------
'-----Eğer 2. sayfaya taşmış ise satırları tek sayfaya sığdır-------
On Error Resume Next
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
.Zoom = 100
If ActiveSheet.PageSetup.Pages.Count = 2 Then
ActiveWindow.View = xlPageBreakPreview
If ActiveSheet.HPageBreaks(1).Location.Row >= 65 Then
.Zoom = False
.FitToPagesWide = 0
.FitToPagesTall = 1
End If
ActiveWindow.View = xlNormalView
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=yazdir, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.PageSetup.Zoom = 100
Err.Clear
'--------------------------------------------------------------------
ActiveSheet.HPageBreaks(1).Location.Row >= 65 Then