Bİr kaç sayfa uzunluğunda bir dosyam var ve ben gerektiğinde sonuncu sayfadan bir fazla çıktı almak istiyorum.
bunun için aşağıdaki kodu denedim. ancak düğmeye tıkladığımda yazdırma alanını değiştirip sadece belirtilen alanı yazdırma alanı olarak belirliyor. bu durumda dosyayı kaydetmeden çıkıp yeniden açmam gerekiyor.
yazdırma alanını değiştirmeden bu işi yapan bir kod var mı acaba
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$190:$I$251"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
bunun için aşağıdaki kodu denedim. ancak düğmeye tıkladığımda yazdırma alanını değiştirip sadece belirtilen alanı yazdırma alanı olarak belirliyor. bu durumda dosyayı kaydetmeden çıkıp yeniden açmam gerekiyor.
yazdırma alanını değiştirmeden bu işi yapan bir kod var mı acaba
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$190:$I$251"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub