verilere göre yazdırma alanı

[hüseyin551]

yazdırma alanını verilere göre azaltılıp çoğalması

 

[systran]

Ön izleme düğmesine şu kodu yazın, G sütununda firma adı yoksa döngü sonlanır ve son satır belirler.

ss = 2
For i = 2 To 200 'G200 e kadar eder ileriye dönük uzun tuttum
    If Worksheets("PARA").Range("G" & i).Value = "" Then
     ss = i - 1
     Exit For
    End If
Next
ActiveSheet.PageSetup.PrintArea = "F1:H" & ss
Sayfa1.PrintPreview

 

[hüseyin551]

emeğinize sağlık teşekkür ederim.hakkını helal et .