Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Dosya: Yazdır | Dosya: Gönder | Dosya: Özellikler | Dosya: Çıkış  (Okunma sayısı 9760 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Excelce.Net

  • @Excelce.Net Kurucu
  • *
  • İleti: 147
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası...
    • 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.
« Son Düzenleme: 10 Ocak 2010, 02:41:21 Gönderen: Excelce.Net »

Çevrimdışı Excelce.Net

  • @Excelce.Net Kurucu
  • *
  • İleti: 147
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası...
    • Excelce.Net
Makro ile Dosya Yazdır | Gönder | Özellikler | Çıkış
« Yanıtla #1 : 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
« Son Düzenleme: 10 Ocak 2010, 03:17:20 Gönderen: Excelce.Net »

Çevrimdışı Excelce.Net

  • @Excelce.Net Kurucu
  • *
  • İleti: 147
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası...
    • Excelce.Net
Makro ile Dosya, Sayfa ve Hücre Yazdırma Örnek Kodları
« Yanıtla #2 : 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
« Son Düzenleme: 02 Şubat 2010, 22:08:08 Gönderen: Excelce.Net »