istenileni yazdırmak.

[sadesinan12345]

Sevgili arkadaşlarım. Ben yazmış olduğum userform da kaydet ve yazdır butonlarını ekledim. Kaydet butonunda textboxlardaki bilgileri ard arda hücrelere kaydediyor. yazdır butonunda ise daha önce hangi satıra kadar kaydedilmişse sadece o kadarını yazdırmasını istiyorum. Sanırım bunun için bir çeşit dizi kullanmam gerekiyor. Örnek dosya ekteki gibidir. Sizden ricam yazdır butonunda anlatmaya çalıştığım gibi bir dizi uygulamasını nasıl yapabilirim {userformun kod bölümünde gerekli açıklamayı tekrar yaptım}.... İlgilenirseniz beni çok mutlu edersiniz.. Emeğiniz için şimdiden çok teşekkür ederim. Saygılarımla....

 

[Murat OSMA]

Deneyiniz;

Private Sub CommandButton1_Click()
    Dim son As Integer
    son = Range("D65536").End(3).Row
    ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & son
    ActiveSheet.PrintOut Copies:=1
End Sub

 

[Huseyinkis]

Yzdır butonun altına ekteki kodları denermisiniz.

SONSAT = Cells(Rows.Count, 1).End(3).Row
ActiveSheet.PageSetup.PrintArea = "A1:d" & SONSAT
Sheets("SAYFA1").PrintOut

 

[sadesinan12345]

siz gerçekten harikasınız ... Hem çok hızlı cevap alabildim. Hemde tam olarak istediğim oldu..