CommandButton Yazdırma/Yazıcı Ayarları

[sfu420]

Arkadaşlar Merhaba,

Yavaş yavaş bende bu makro olaylarına girmeye başladım hayırlısıyla.

Private Sub CommandButton1_Click()
If MsgBox("Verileriniz Yazdırılsın mı?", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut
End If
End Sub

Üstteki kodu forumdan buldum fakat bir türlü işleyemedim. Ben bu kod ile örneğin Sayfa6'nın tamamını yazdırmak istiyorum. Fakat yazdırmadan öne bana Print ekranını da getirmeli.

Desteğinizi rica ediyorum.

 

[Hacı Bayram ÖZKAN]

Arkadaşlar Merhaba,

Yavaş yavaş bende bu makro olaylarına girmeye başladım hayırlısıyla.

Private Sub CommandButton1_Click()
If MsgBox("Verileriniz Yazdırılsın mı?", vbDefaultButton1 + vbYesNo, "UYARI") = vbYes Then
ActiveSheet.PageSetup.PrintArea = "B1:AC33"
ActiveWindow.SelectedSheets.PrintOut
End If
End Sub

Üstteki kodu forumdan buldum fakat bir türlü işleyemedim. Ben bu kod ile örneğin Sayfa6'nın tamamını yazdırmak istiyorum. Fakat yazdırmadan öne bana Print ekranını da getirmeli.

Desteğinizi rica ediyorum.

Private Sub CommandButton1_Click()
If MsgBox("YAZDIRMAK İSTİYOR MUSUN?", vbYesNo, "UYARI") = vbNo Then Exit Sub


Sheets("Sayfa6").PageSetup.PrintArea = "A1:J" & Sheets("Sayfa6").Cells(65536, "B").End(xlUp).Row
Sheets("Sayfa6").PageSetup.Zoom = 85
Sheets("Sayfa6").PageSetup.Orientation = xlLandscape 'Dikey yazdırmak=.Orientation = xlPortrait
Me.Hide
Application.Visible = True
Sheets("Sayfa6").PrintPreview
Application.Visible = False
Me.Show
Sheets("Sayfa6").PageSetup.PrintArea = ""
End Sub

Bunu deneyin. Siteden buldum.

 

[sfu420]

Dostum eline sağlık ama çalışmadı makro. bende mi bi problem var acaba?

 

[sfu420]

Arkadaşlar destek olabilecek başka biri var mıdır? tarzanhaci'nın verdiği kodları kullanırken hata yapmış olabilir miyim? Ya da farklı bir kod söyleyebilecek biri?

Bugün bu işi halletmem gerekiyor.