Merhaba,
Access veritabanından HEDEF_SAATLIK.xls dosyasını açıyorum. Açılan dosyada aşağıdaki kod tanımlı fakat çalışmıyor.
Private Sub Worbook_Open()
Application.Calculation = xlCalculationAutomatic
Sheets("SAATLIK").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close Savechanges:=False
End Sub
Eğer başlığı Private Sub aut
pen() olarak değiştirirsem çıktı gönderiyor fakat excel dosyası açılmadan ve sonrasında excel dosyası virüslü alobilir açmak istiyormusunuz diye soruyor evet dersem dosyayı açıp tekrar çıktı gönderiyor. Yani 2 kez çıktı almış oluyorum.
Benim yapmak istediğim dosya açıldığında SAATLIK sayfasına geçecek 1 adet çıktı alıp. Dosyayı kaydetmeden çıkacak.
Teşekkürler
Access veritabanından HEDEF_SAATLIK.xls dosyasını açıyorum. Açılan dosyada aşağıdaki kod tanımlı fakat çalışmıyor.
Private Sub Worbook_Open()
Application.Calculation = xlCalculationAutomatic
Sheets("SAATLIK").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close Savechanges:=False
End Sub
Eğer başlığı Private Sub aut
pen() olarak değiştirirsem çıktı gönderiyor fakat excel dosyası açılmadan ve sonrasında excel dosyası virüslü alobilir açmak istiyormusunuz diye soruyor evet dersem dosyayı açıp tekrar çıktı gönderiyor. Yani 2 kez çıktı almış oluyorum.Benim yapmak istediğim dosya açıldığında SAATLIK sayfasına geçecek 1 adet çıktı alıp. Dosyayı kaydetmeden çıkacak.
Teşekkürler