DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub YAZICI_PENCERESİ()
Application.Dialogs(xlDialogPrint).Show
End Sub
Sub ÖNİZLEME_YAZDIR()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True
End Sub
Sub YAZDIR()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub ÖNİZLEME()
ActiveWindow.SelectedSheets.PrintPreview
End Sub