yazdır

[hakin]

Yazdir

ExELDE USER FORMDA YAZICI BUTONUNA BASTIĞIMDA YÖNLENDİRİLEN ExEL SAYFASINI YAZIYOR, ANCAK YAZDIRIRKEN SAYFA GÖRÜNÜYOR: SAYFANIN GÖRÜNMEMESİ İÇİN NE YAPMAM GEREKİR: ŞİMDİDEN TEŞEKKER EDERİM

 

[hamitcan]

Dosyanızı ekleyin. Ayrıca sorularınızı, büyük harfler kullanarak sormayın.

 

[hakin]

dosya ektedir. İlginize şimdiden teşekkür ederim.

 

[hakin]

dosya ektedir. teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim S As Worksheet
Dim SUT, V As Integer
Set S = Sheets("Sayfa2")
SON = S.Cells(65536, "B").End(3).Row + 1
V = 2
For I = 1 To 4
S.Cells(SON, V) = Controls("TEXTBOX" & I)
V = V + 1
Next
For SUT = 1 To S.Cells(65536, "B").End(3).Row - 1
S.Cells(SUT + 1, "A") = SUT
Next
End Sub

Private Sub CommandButton2_Click()
Unload Me
Set S = Sheets("Sayfa2")
S.PrintPreview
UserForm1.Show
End Sub

 

[hamitcan]

Aşağıdaki kodları kullanın.

Private Sub CommandButton1_Click()
son = [a65536].End(3).Row + 1
With Sayfa2
.Cells(son, 1) = son
.Cells(son, 2) = TextBox1
.Cells(son, 3) = TextBox2
.Cells(son, 4) = TextBox3
.Cells(son, 5) = TextBox4
End With
End Sub

Private Sub CommandButton2_Click()
Sayfa2.UsedRange.PrintOut
End Sub

 

[yorgunziya]

saol kardeşim