Excel Vba Forum - Excelce.Net
EXCEL DOSYA ve KOD ÖRNEKLERİ (Sadece Okunabilir) => Excel Menüleri => DOSYA => Konuyu başlatan: Excelce.Net - 08 Ocak 2010, 08:59:23
-
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.
-
Dosya: Yazdır
ThisWorkbook.PrintOut
ActiveWorkbook.PrintOut
Sayfamızın 2. ile 5. arasını, 3'er kopya şeklinde yazdırmak istersek;
ActiveSheet.PrintOut from:=2, To:=5, Copies:=3, Collate:=True
Dosya: Gönder
Application.Dialogs(xlDialogSendMail).Show
Dosya: Özellikler
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;
ThisWorkbook.Close True
Mevcut çalışma kitabını kaydetmeden kapatmak için;
ThisWorkbook.Close False
Excel uygulamasından tamamen çıkmak için;
Application.Quit
-
Makro ile Dosya, Sayfa ve Hücre Yazdırma Örnek Kodları:
'Aktif kitabı yazdır;
ActiveWorkbook.PrintOut
'Bütün sayfaları yazdır;
Worksheets.PrintOut
veya
Sheets.PrintOut
'Belirli sayfaları yazdır;
Sheets(Array("Sayfa1", "Sayfa3")).PrintOut
'Seçili sayfaları yazdır;
ActiveWindow.SelectedSheets.PrintOut
'Aktif sayfayı yazdır;
ActiveSheet.PrintOut
'Sayfa1'i yazdır;
Sheets("Sayfa1").PrintOut
'Seçimi yazdır;
Selection.PrintOut
'Belirli hücre alanını yazdır;
Range("B2:E8").PrintOut