vuranoğlu
Altın Üye
- Katılım
- 18 Nisan 2008
- Mesajlar
- 252
- Excel Vers. ve Dili
- excel 2016 tr
- Altın Üyelik Bitiş Tarihi
- 22.01.2026
Merhaba
Uzun bir excel tablosunda yazdırma alanı belirleyerek (I) da boş olanların ön izleme yapılarak yazdırılmaması için nasıl kod yazmalıyız?
Private Sub CommandButton1_Click()
Son = [a100000].End(3).Row
If Son < 100000 Then
ActiveSheet.PageSetup.PrintArea = "$a$1:$J$" & Son + 1
With ActiveSheet.PageSetup
.Zoom = False
End With
ActiveSheet.PrintOut
Else
ActiveSheet.PageSetup.PrintArea = "$a$1:$ı$" & Son + 1
With ActiveSheet.PageSetup
.Zoom = 85
End With
'ActiveSheet.PrintOut
End If
MsgBox "İşlem TAMAM.", vbInformation
End Sub
Bu kod istenileni vermiyor.
Uzun bir excel tablosunda yazdırma alanı belirleyerek (I) da boş olanların ön izleme yapılarak yazdırılmaması için nasıl kod yazmalıyız?
Private Sub CommandButton1_Click()
Son = [a100000].End(3).Row
If Son < 100000 Then
ActiveSheet.PageSetup.PrintArea = "$a$1:$J$" & Son + 1
With ActiveSheet.PageSetup
.Zoom = False
End With
ActiveSheet.PrintOut
Else
ActiveSheet.PageSetup.PrintArea = "$a$1:$ı$" & Son + 1
With ActiveSheet.PageSetup
.Zoom = 85
End With
'ActiveSheet.PrintOut
End If
MsgBox "İşlem TAMAM.", vbInformation
End Sub
Bu kod istenileni vermiyor.
Ekli dosyalar
-
24.8 KB Görüntüleme: 4