- Katılım
- 7 Mart 2022
- Mesajlar
- 9
- Excel Vers. ve Dili
- 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 07-03-2023
Merhabalar. Ekteki dosyadaki çizelgeyi sayfa 1'e bağlantısını yaptığım userform üzerinden yazdırmak istediğimde aşağıdaki kod çalışmıyor. Eğer ogrencilistesi sayfasına buton koyup da kodu yazarsam problemsiz çalışıyor. Bu problemi nasıl çözebilirim?
C#:
Private Sub CommandButton1_Click()
With Sheets("ogrencilistesi")
.PageSetup.Orientation = xlPortrait
.PageSetup.PaperSize = xlPaperA4
.PageSetup.CenterHorizontally = True
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PageSetup.LeftMargin = Application.InchesToPoints(0)
.PageSetup.RightMargin = Application.InchesToPoints(0)
.PageSetup.TopMargin = Application.InchesToPoints(0)
.PageSetup.BottomMargin = Application.InchesToPoints(0)
.PageSetup.HeaderMargin = Application.InchesToPoints(0)
.PageSetup.FooterMargin = Application.InchesToPoints(0)
Dim sonsatir As Long
sonsatir = Cells(Rows.Count, "a").End(3).Row
.Range(.Cells(1, 2), .Cells(sonsatir, 13)).ExportAsFixedFormat Type:=xlttype, openafterpublish:=True
End With
End Sub
Ekli dosyalar
-
26.2 KB Görüntüleme: 4