yazdır komutu

[sinemomec]

Private Sub CommandButton1_Click()
    Dim Yazıcı As String
    Yazıcı = Application.Dialogs(xlDialogPrinterSetup).Show
    If Yazıcı = False Then Exit Sub
    Worksheets("sayfa2").Visible = True
    Worksheets("sayfa2").Activate
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
 
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
End Function

eklediğim kodda yazdır dediğim zaman gizlediğim sayfa ikiyi açıyor bu sayfanın gelmesini istemiyorum, nasıl düzeltebilirim.

 

[YUSUF44]

"gelmesini istemiyorum" ne demek anlamadım maalesef.

Not: Kodlardaki

Worksheets("sayfa2").Visible = True
Worksheets("sayfa2").Activate

satırları önce sayfayı görünür yapıyor sonra da o sayfaya geçiş yapıyor.

 

[sinemomec]

sayfa2 calışma sayfamda gizli yazdır komutu verince sayfa2 açıp yazıyor ben bunu direk yazmasını istiyorum sayfa2 açmasını itemiyorum . yanlış bir kod mu kullandım bunun için

 

[YUSUF44]

Gizliyken yazdırma yapılamıyorsa önce göstermeyi, sonra yazdırmayı ve sonra tekrar gizlemeyi deneyebilirsiniz.

 

[sinemomec]

teşekkür ederim güzel bir cevap verdiniz.

 

[sinemomec]

bende öyle yaptım

 

[YUSUF44]

Yaptığım araştırmalarda sayfayı göstermeden yazdırma şeklinde bir çözüm bulamadım zaten.

Makro çalışırken sayfanın görünmesi istenmiyorsa işlemden önce Application.ScreenUpdating = False ve işlem bitince de True yapılabilir.