Merhaba;
aşağıda belirttiğim vba kodu ile sayfa yazdırmak istiyorum.
yalnız çalışma sayfamın içeriği 15 sayfaya kadar çıkabiliyor. bu sayfama formülle bir başka sayfadan tercihlerime göre veriler gelmekte.
bazen 2 sayfalık bazen 1 sayfalık toplamda 15 sayfaya kadar artıyor.
sonuç olarak kaç sayfalık veri varsa o kadar sayfayı yazdırmak için bir koda ihtiyacım var.
şimdilik yazdığım kod aşağıdaki gibi;
Private Sub CommandButton1_Click()
Sheets("Rapor Formatı").PrintPreview
End Sub
aşağıda belirttiğim vba kodu ile sayfa yazdırmak istiyorum.
yalnız çalışma sayfamın içeriği 15 sayfaya kadar çıkabiliyor. bu sayfama formülle bir başka sayfadan tercihlerime göre veriler gelmekte.
bazen 2 sayfalık bazen 1 sayfalık toplamda 15 sayfaya kadar artıyor.
sonuç olarak kaç sayfalık veri varsa o kadar sayfayı yazdırmak için bir koda ihtiyacım var.
şimdilik yazdığım kod aşağıdaki gibi;
Private Sub CommandButton1_Click()
Sheets("Rapor Formatı").PrintPreview
End Sub