Excel de sayfa1 yazdırabilmek için

[Mdemir63]

Merhaba
UserForm üzerindeki button düğmesine bastığımda Sayfa1 yazsın istiyorum ne yapmalıyım

Teşekkürler arkadaşlar

 

[Recep İpek]

Sayfa1'e ne yazılacak?

 

[ttrance]

Sn. komutan63
nereye yazacak "sayfa 1" diye


user form uzerinde text box oldugunu dusunursek

Private Sub CommandButton1_Click()
TextBox1.Text = "sayfa 1"
End Sub

tıkladıgımızda texbox'a sayfa 1 yazdırabiliriz

 

[Mdemir63]

Yazıcıdan Çıktı alınacak

Hocam sayfa1 içindeki örneğin personel bilgilerini yazıcıdan kağıda yazdıracak
Yani ben Userform üzerindeki yazdır düğmesine tıkladığımda yazıcıdan çıktısı alınacak Saygılar

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz.

Yazıcı ekranını açar.

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets(1).Select
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[Mdemir63]

Sayfaları yazdırabilmek için

Merhabalar Sn: ttrance ve Sn: ripek

daha iyi anlatabilmek için örnek dosya gönderiyorum

saygılar

 

[ttrance]

sn komutan

kodu sayfa1 altına ekleyiniz (sayfa 1 de 1 adet commandbutton 2 adet optionbutton kullanılmıştır.

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Sheets("Sayfa2").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("Sayfa1").Select
End If
If OptionButton2 = True Then
Sheets("Sayfa3").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("Sayfa1").Select
End If
End Sub

 

[Mdemir63]

Sayfa1 altına eklemekten birşey anlamadım hocam daha net yazabilirmisiniz

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub Düğme1_Tıklat()
Sheets("Sayfa2").PrintOut
End Sub

 

[ttrance]

örnek bir dosya eklim acıklama yaptım içine kod sayfasını incelersin

 

[ttrance]

sn. seyit tiken'in yaptıgına uyarlarsak sayfa2 yi ve sayfa3 ü hiç gormeden cıktı alabilirsin...

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Sheets("Sayfa2").printout
End If
If OptionButton2 = True Then
Sheets("Sayfa3").printout
End If
End Sub

 

[Mdemir63]

İlginize çok Teşekkürler arkadaşlar
Saygılar