Dosya: Yazdır | Dosya: Gönder | Dosya: Özellikler | Dosya: Çıkış

[Excelce.Net]

Dosya: Yazdır
Ctrl + P kısayolu ile de erişebilir olan Yazdır menüsü ile sayfa içeriğinin yazıcıya gönderilmesi sağlanır.

Dosya: Gönder
Alt + D / G kısayolu ile de erişilebilir olan Gönder menüsü ile aktif sayfanın e-posta içeriği olarak veya aktif çalışma kitabının ek olarak gönderilmesi sağlanır.

Dosya: Özellikler
Dosyanın oluşturulma, değişme, erişme ve yazdırma zamanları, türü, konumu ve boyutu, yazarı, son kaydedeni gibi bilgilerin görüntülenmesine yarar.

Dosya: Çıkış
Dosyayı kapatmak için Alt + D /K kısayolu da kullanılabilir.

[Excelce.Net]

Dosya: Yazdır

Kod: [Seç]

ThisWorkbook.PrintOut
ActiveWorkbook.PrintOut
Sayfamızın 2. ile 5. arasını, 3'er kopya şeklinde yazdırmak istersek;

Kod: [Seç]

ActiveSheet.PrintOut from:=2, To:=5, Copies:=3, Collate:=True
Dosya: Gönder

Kod: [Seç]

Application.Dialogs(xlDialogSendMail).Show
Dosya: Özellikler

Kod: [Seç]

MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Title") 'Başlık
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Subject") 'Konu
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Author") 'Oluşturan
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Last Author") 'Son kaydeden
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Creation Date") 'Oluşturulma zamanı
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Last Save Time") 'Son kaydedilme zamanı
MsgBox ThisWorkbook.BuiltinDocumentProperties.Item("Last Print Date") 'Son yazdırılma zamanı
MsgBox ThisWorkbook.FullName 'Dosya yolu ve adı
MsgBox ThisWorkbook.Name 'Dosya adı
MsgBox ThisWorkbook.Path 'Dosya yolu
MsgBox ThisWorkbook.Sheets.Count 'Sayfa sayısı
MsgBox ThisWorkbook.FileFormat 'Dosya formatı

Dosya: Çıkış

Mevcut çalışma kitabını kaydedip kapatmak için;

Kod: [Seç]

ThisWorkbook.Close True
Mevcut çalışma kitabını kaydetmeden kapatmak için;

Kod: [Seç]

ThisWorkbook.Close False
Excel uygulamasından tamamen çıkmak için;

Kod: [Seç]

Application.Quit

[Excelce.Net]

Makro ile Dosya, Sayfa ve Hücre Yazdırma Örnek Kodları:

'Aktif kitabı yazdır;

Kod: [Seç]

ActiveWorkbook.PrintOut
'Bütün sayfaları yazdır;

Kod: [Seç]

Worksheets.PrintOutveya

Kod: [Seç]

Sheets.PrintOut
'Belirli sayfaları yazdır;

Kod: [Seç]

Sheets(Array("Sayfa1", "Sayfa3")).PrintOut
'Seçili sayfaları yazdır;

Kod: [Seç]

ActiveWindow.SelectedSheets.PrintOut
'Aktif sayfayı yazdır;

Kod: [Seç]

ActiveSheet.PrintOut
'Sayfa1'i yazdır;

Kod: [Seç]

Sheets("Sayfa1").PrintOut
'Seçimi yazdır;

Kod: [Seç]

Selection.PrintOut
'Belirli hücre alanını yazdır;

Kod: [Seç]

Range("B2:E8").PrintOut