EXCEL DOSYA ve KOD ÖRNEKLERİ (Sadece Okunabilir) > DOSYA

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

(1/1)

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: ---ThisWorkbook.PrintOut
ActiveWorkbook.PrintOut
--- Kod sonu ---

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

--- Kod: ---ActiveSheet.PrintOut from:=2, To:=5, Copies:=3, Collate:=True
--- Kod sonu ---

Dosya: Gönder

--- Kod: ---Application.Dialogs(xlDialogSendMail).Show
--- Kod sonu ---

Dosya: Özellikler


--- Kod: ---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ı

--- Kod sonu ---

Dosya: Çıkış

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

--- Kod: ---ThisWorkbook.Close True
--- Kod sonu ---

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

--- Kod: ---ThisWorkbook.Close False
--- Kod sonu ---

Excel uygulamasından tamamen çıkmak için;

--- Kod: ---Application.Quit
--- Kod sonu ---

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

'Aktif kitabı yazdır;

--- Kod: ---ActiveWorkbook.PrintOut
--- Kod sonu ---

'Bütün sayfaları yazdır;

--- Kod: ---Worksheets.PrintOut
--- Kod sonu ---
veya

--- Kod: ---Sheets.PrintOut
--- Kod sonu ---

'Belirli sayfaları yazdır;

--- Kod: ---Sheets(Array("Sayfa1", "Sayfa3")).PrintOut
--- Kod sonu ---

'Seçili sayfaları yazdır;

--- Kod: ---ActiveWindow.SelectedSheets.PrintOut
--- Kod sonu ---

'Aktif sayfayı yazdır;

--- Kod: ---ActiveSheet.PrintOut
--- Kod sonu ---

'Sayfa1'i yazdır;

--- Kod: ---Sheets("Sayfa1").PrintOut
--- Kod sonu ---

'Seçimi yazdır;

--- Kod: ---Selection.PrintOut
--- Kod sonu ---

'Belirli hücre alanını yazdır;

--- Kod: ---Range("B2:E8").PrintOut
--- Kod sonu ---

Navigasyon

[0] Mesajlar