Baskı Önizlemeli Yazdırma (VBA)

[ZuCChiNi]

[Çözüldü] Baskı Önizlemeli Yazdırma (VBA)

Userform'da oluşturduğum yazdır düğmesine bastığımda Dosya Menüsündeki Yazdır seçeneğinin ekrana gelmesini istiyorum.
Yani solda yazıcı seçenekleri, sağda önizleme olsun.
Araştırmalarım sonunda aşağıdakileri denedim ama hiçbiri işimi görmedi.
Yardım rica ediyorum lütfen.
Excel 2010

Sub BaskiOnizleme_KayıtS1()
' Önce önizleme çıkıyor, arkasından yazıcı seçenekleri
Form.Hide
    Application.ScreenUpdating = False
    Sheets("KayıtS").Select
    Worksheets("KayıtS").PrintPreview
    Application.ScreenUpdating = True
Form.Show
End Sub

Sub BaskiOnizleme_KayıtS2()
' Doğrudan yazdırıyor
Form.Hide
    Application.ScreenUpdating = False
    Sheets("KayıtS").PageSetup.PrintArea = "KayıtS!B2:BD58"
    Sheets("KayıtS").PrintOut
    Application.ScreenUpdating = True
Form.Show
End Sub

Sub BaskiOnizleme_KayıtS3()
' Yazıcı Seçenekleri çıkıyor
Form.Hide
    Sheets("KayıtS").Select
    Application.Dialogs(xlDialogPrint).Show Arg12:=1
    Sheets("AnaSayfa").Select
    Range("L2").Select
Form.Show
End Sub

Sub BaskiOnizleme_KayıtS4()
' Doğrudan yazdırıyor
Form.Hide
    Sheets("KayıtS").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("AnaSayfa").Select
    Range("L2").Select
Form.Show
End Sub

Sub BaskiOnizleme_KayıtS5()
' Yazıcı Seçenekleri çıkıyor
Form.Hide
    Application.Dialogs(xlDialogPrint).Show
    Sheets("KayıtS").Range("B2:BD58").ClearContents
    Sheets("AnaSayfa").Select
    Range("L2").Select
Form.Show
End Sub

 

[BAZGİRET]

Merhaba,
Dosyanızı ekleyebilir misiniz?

 

[ZuCChiNi]

Dosya eklendi.

 

[Zeki Gürsoy]

Şunu arıyorsunuz sanırım.

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

 

[ZuCChiNi]

Şunu arıyorsunuz sanırım.

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

Evet, aradığım buydu.
Çok teşekkür ederim.

 

[ZuCChiNi]

Kodu aşağıdaki şekilde yazınca istediğim ekran geliyor.
Ancak yazdırdıktan sonra AnaSayfa sekmesine geçmesini istiyorum.
Bildiğim yolla -Kod: 2- yapınca önizleme olarak AnaSayfa sekmesini gösteriyor.
Nasıl bir çözüm önerirsiniz?

Kod: 1

Sub BaskiOnizleme_KayıtS1()
    Sheets("KayıtS").Select
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub

Kod: 2

Sub BaskiOnizleme_KayıtS1()
    Sheets("KayıtS").Select
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
    Sheets("AnaSayfa").Select
End Sub