Tek sayfalı bir excel dosyası açılınca otomatik yazıcıya gönderilip kapansın.

[kelkitli]

Merhaba değerli dostlar,
Excelde hazırlanmış bir dosyam var. PC sabahleyin saat 08 de otomatik açılıp bu dosyayı da açıyor. Dosya açılınca Sayfa1 i yazıcıya gönderip kapansın istiyorum. İlgilenen arkadaşlara teşekkür ederim.

 

[conari]

Private Sub Workbook_Open()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close
End Sub

 

[kelkitli]

Öncelikle cevabınız için teşekkür ederim. Sorun var. Açılışta Makrolar etkinleştirilsin mi diye kapanırken kaydedilsinmi diye soru soruyor. PC nin yanında kimse olmadan bu işlemi yapması gerektiği için nası bir çözüm üretmeliyim.

 

[emrexcel123]

birincisi açılırken sorması normal, sormamasını istiyorsanız güvenlik seviyesini düşük yapın (önerilmez tabi ki) ya da bir sertifika oluşturun bu sayfada gösterin ikincisi uygun kod aşağıdadır herhangi bir module yerleştirin >>
Sub auto_open()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

 

[kelkitli]

Sn.Emrexcel123 Cevabınız için teşekkür ederim.

 

[emrexcel123]

sorununuz halloldu mu peki ?

 

[conari]

Alternatif

Private Sub Workbook_Open()
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close
End Sub

 

[emrexcel123]

Alternatif

Private Sub Workbook_Open()
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close
End Sub

sn conari "Application.DisplayAlerts = False" makro uyarı olayını etkilemez ve "ActiveWorkbook.Save" satırını eklemezseniz yapılan değişiklikler için uyarı verecektir...

 

[conari]

sn conari "Application.DisplayAlerts = False" makro uyarı olayını etkilemez ve "ActiveWorkbook.Save" satırını eklemezseniz yapılan değişiklikler için uyarı verecektir...

Private Sub Workbook_Open()
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close
End Sub

Notrint işleminde denenmedi. Hücresel işlemlerde çalışıyor. Belgenin This Workbook kısmına yazılmalı.

 

[kelkitli]

Teşekkür ederim Değerli Doslar,
Kodlar işimi gördü Sn.Emrexcel123 birde merak ettim üniversite sınavın nasıl geçti. Başarırsın inşallah. Ayrıca Conari ye de teşekkürlerimi iletirim.