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

Başlık: Dosya: Yazdır | Dosya: Gönder | Dosya: Özellikler | Dosya: Çıkış
Gönderen: 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.

Başlık: Makro ile Dosya Yazdır | Gönder | Özellikler | Çıkış
Gönderen: Excelce.Net - 10 Ocak 2010, 02:49:18

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

Başlık: Makro ile Dosya, Sayfa ve Hücre Yazdırma Örnek Kodları
Gönderen: Excelce.Net - 10 Ocak 2010, 03:27:57

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