Sheets(Array("Dispense_unit")).Select
Sheets("Dispense_unit").Activate
isim = Sheets("Dispense_unit").Range("F8").Value & ".PDF"
yol = "C:\Users\aadigital\Documents\Dispense_Unit\"
With Sheets("Dispense_unit")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=yol & isim, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Dispense_unit").Select
End With
sorunu buldum. activex nesneleri farkli bilgisayarlarda boyut degisimi yapabiliyorlarmis. örnegin masaüstü ya da laptopta kullanirken ekran boyutlari farkli oldugundan nesneler buna uyum saglayabilmek icin kendini boyutlandirabiliyormus.
sorunun cözümü gruplandirmak. nesneleri gruplandirdim ve suanda sorun görünmüyor.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.