Teşekürler anka81 verdiğin bilgiler için
ancak ben param kullanmadığım için söylediklerini uygulayamadım

deneme yanılma yöntemi ile çözüme kavuştu

<%
musID= request("musID")
teklifim = request("teklif")
dim Pdf, Filename, doc, tarih
    Set Pdf = Server.CreateObject("Persits.Pdf")
    Set Doc = Pdf.CreateDocument 
    Doc.ImportFromUrl "http://www.xxxxx.org/xxxxx/cikti/cikti.asp?musID="&musID&"&teklif="&teklifim,"LeftMargin=30,RightMargin=30,TopMargin=0,BottomMargin=0,Scale=0.67"
    Filename = Doc.Save( Server.MapPath("cikti/" & teklifim & "_teklif.pdf"), false )


    Response.Write "Tamamlandı! Pdf Dosyasını İndirmek için <A HREF=cikti/" & Filename & ">Tıklayınız</A>"


%>

Doc.ImportFromUrl "www.domain.com/fpdolacaksayfa.asp","LeftMargin=30, RightMargin=30, TopMargin=0, BottomMargin=0, Scale=0.67"

Şeklinde istediğimiz parametreyi girebiliyoruz
Ayrıca aynı bölüme Pagewight, Pageheight, ekleye biliyoruz.
Scale default olarak 1 ben 0,67 diyerek %68 küçülttüm

Belki diğer arkadaşlara yardımcı olur.