selam arkadaşlar, makro ile istediğimiz sayfayı veya seçili alanı pdf olarak aktarabiliyorum forumda yüzlerce örnek var, fakat benim seçili alanım biraz geniş geliyor herhaldeki yazdırma kısmında ayarlayabildiğimiz "tüm sütunları bir sayfaya sığdır" komutunu veremiyorum. bunu nasıl halledebiliriz.
Kod:
Sub pdfkaydet()
Application.ScreenUpdating = False
Sheets("pdf").Select
X = [I1]
dosyaadi = Range("a1").Value
dosyayolu = ThisWorkbook.Path & "\"
With Sheets("pdf").Range(Cells(1, "a"), Cells(X, "g"))
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=dosyayolu & "\" & dosyaadi & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False '
End With
Application.CutCopyMode = False
Sheets("giriş").Select
End Sub