VBA İle Detaylı Yazdırma

[Ali Excel Öğreniyor]

Merhabalar.

Ben bir sayfada seçtiğim hücreyi düzenleyip yazdırmak istiyorum.

Yani alanı seçicek ctrl+P gibi önizleme ve düzenleme imkanı sunacak, sayfayı yatay dikey, kenar boşlukları vs düzenleme ekranını getircek. Böyle bir makro var mı?
Şimdiden teşekkürler..

 

[excelokyanus500]

Deneyin..

Sub yazdir()
 Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$19" ' Kendi alanınızı belirleyin
 Application.PrintCommunication = False
' Range("A1").Value = Application.ActivePrinter
 ActiveWindow.SelectedSheets.PrintPreview
 Application.Dialogs(xlDialogPrinterSetup).Show
End Sub