Baskı Önizleme yazdırma

[erzen]

Merhabalar. UserForm ile baskı önizleme yapıyorum. Ancak baskı önizlemedeki yazdır kısmından sayfa yazdırılmasın. Sayfa önizlemeyi kapatıp yine userform üzerindeki yazdır butonuyla yazdırsın. Umarım anlatabilmişimdir. Yardımcı olursanız sevinirim.

 

[noxious]

örneğini eklersen üzerinde çalışma yapabiliriz yada ekli dosyadaki formülleri kendi çalışmana uyarla

 

[erzen]

ekteki dosyada anlattım yapmak istediğimi.

 

[parametre]

senin dediğini forumda id kod diye arat kodları bulursun yada menu diye arattır benim sorumdu
burası
burası2
3.link

bunlari incele derim

 

[erzen]

Sağolun ama o linklerden hiçbirşey anlamadım

 

[Altay3555]

Private Sub CommandButton10_Click() 'Yazdır Komutu
Unload Me
sor = MsgBox(" Yazmadan Önce bir Bakalım... ", vbYesNoCancel)
If sor = vbYes Then
Application.ScreenUpdating = True
Worksheets("Sayfa1").PrintPreview
Application.ScreenUpdating = True
UserForm1.Show 0
sor2 = MsgBox(" Beğendiyseniz Yazdırayım mı? ", vbYesNo)
If sor2 = vbYes Then
Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintOut
If sor2 = vbNo Then
Worksheets("Sayfa1").PrintOut
UserForm1.Show
End If
End If
End If
If sor = vbNo Then
Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintOut
UserForm1.Show
End If
If sor = vbCancel Then
UserForm1.Show
End If
End Sub



Bu kod iyi çalışıyor..bir deneyiniz bakalım kardeş...

 

[izcik]

Düğme adı olarak ne yazmamız gerekiyor değerli Altay3555 . Çalıştıramadım hata verdi.

 

[Civan Jack]

Properties de CommandButton? kaç yazıyorsa, Private Sub CommandButton10_Click() kısmına CommandButton? yazmalısın...

 

[izcik]

Properties de CommandButton? kaç yazıyorsa, Private Sub CommandButton10_Click() kısmına CommandButton? yazmalısın...

Değerli Civan Jack maalesef bişey anlamadım. Dosya örneğini yapar mısınız?

 

[Civan Jack]

İnceleyiniz.

 

[izcik]

Değişik ve güzel bir çalışma olmuş. Teşekkürler değerli Civan Jack

 

[Civan Jack]

Değişik derken ??? En basit bir çalışma gönderdim..
Farklı yapanlar lütfen göndersin...

 

[izcik]

Güzel yani onu demek istedim. Önizlemenin makroyla olabileceğini bilmezdim örneğin.

 

[Civan Jack]

Anladım sayın izcik.. Hoşcakalın !!!

 

[kontto]

Arkadaşlar sayfa1 de oluşturduğum 3 adet butonla sayfa2,sayfa3 ve sayfa4 deki verileri nasıl yazdırabilirim bana makro yazabilirmisiniz

 

[Civan Jack]

Sayfa 1 i değiştirip kullanabilirsin

Private Sub CommandButton1_Click() 'Yazdır Komutu
Unload Me
sor = MsgBox(" Yazmadan Önce bir Bakalım... ", vbYesNoCancel)
If sor = vbYes Then
Application.ScreenUpdating = True
Worksheets("Sayfa1").PrintPreview
Application.ScreenUpdating = True
UserForm1.Show 0
sor2 = MsgBox(" Beğendiyseniz Yazdırayım mı? ", vbYesNo)
If sor2 = vbYes Then
Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintOut
If sor2 = vbNo Then
Worksheets("Sayfa1").PrintOut
UserForm1.Show
End If
End If
End If
If sor = vbNo Then
Application.ScreenUpdating = False
Worksheets("Sayfa1").PrintOut
UserForm1.Show
End If
If sor = vbCancel Then
UserForm1.Show
End If
End Sub

Önizlemesiz yardırmak için;

Private Sub CommandButton1_Click() '
Sheets("Sayfa2").PrintOut Copies:=1 ' sayfa2 Excel içindeki adı olacak
Sayfa2.PrintOut Copies:=1 ' sayfa2 VBA içindeki adı olacak
End Sub

İstenilen Alanı Yazdırmak İçin;

Sub ccc()
ActiveSheet.PageSetup.PrintArea = "$B$1:$F$10"
    ActiveSheet.PrintOut Copies:=1
End Sub