Excel 2010 Yazdırma Sorunu

[htsumer]

2007 hazırladığım Userform üzerindeki yazdır butonu çalışıyor ama 2010'da Baskı Önizleme geliyor ama yazdır kısmı aktif olmuyormuş.(Bende 2010 olmadığından test edemedim.)

Aşağıdaki kodlardan kaynaklananbilirmi?

Me.Hide
ActiveWindow.SelectedSheets.PrintPreview
Application.Visible = False
Me.Show

 

[mancubus]

print etmek için:

ActiveWindow.SelectedSheets.[COLOR="Red"]PrintOut[/COLOR] Copies:=1

 

[htsumer]

Teşekkür ederim, 2010 bende yok denediğimde geri bildirim yaparım.

 

[htsumer]

2010 Kurdum denedim baskı önizleme olmadan direk yazdıryor..Baskı önizleme olmalı..

Me.Hide
    Sheets(Array("3a", "3a_nusha")).Select
    'ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=1' direk yazdırıyor kullanamadım..Baskı önizleme olması gerek
Sheets("kütük").Select
Application.Visible = False
Me.Show