son bir şey daha deneyelim eğer o da olmazsa aklıma başka birşey gelmiyor
sadece aşağıdaki kodu dener misiniz?
başka tek satır birşey olmayacak

Worksheets("hizmetIsleriKabulTutanagi").ExportAsFixedFormat Type:=xlTypePDF

bu kod belgelerim klasöründe çalışma kitabıyla aynı adda bir pdf oluşturur, yukardaki kod çalışırsa bu sefer

Worksheets("hizmetIsleriKabulTutanagi").ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

yazarak deneyin