Navigate edilmemiş bir internet sayfasının çıktısını almak

[hryildirim]

Arkadaşlar selamlar
Benim sorunum navigate edilmeyen submit yoluyla açılmış olan bir sayfanın çıktısnı almak bunu nasıl yapabilirim. Kod aşağıdaki gibdir.

B1.click kısmında açılan sayfanın çıktısı alınması gerekir.

Selamlar

URL = "http://portal.xxxxx.com.tr/page.asp?pageid=frm_siparis_etiket"
With IE
.Visible = True
.Navigate URL
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
With .document.All
.f_miktar.Value = etiket.adet.Value
.f_ambalajMiktari(0).Value = etiket.kasaad.Value
.f_irsaliyeNo(0).Value = etiket.irsaliyeno.Value
.f_sevkTarihi.Value = etiket.sevktar.Value
.f_partiNo(0).Value = etiket.refno.Value
.f_kasaTipi(0).Options(satir1).Selected = True
.f_netAgirlik(0).Value = etiket.netagirlik.Value
.f_brutAgirlik(0).Value = etiket.brutagirlik.Value
.f_parcaKodu(0).Focus
.f_parcaKodu(0).Options(satir).Selected = True
.f_kagit_tipi(1).Checked = True
.B1.Click
End With
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.ExecWB 6, 2, 2, 0 'Print
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
'Application.Wait Now + TimeValue("00:00:03")
Worksheets("KONTROL").Range("A1").Value = etiket.aciklama.Value
Worksheets("KONTROL").Range("a29").Value = etiket.urunara.Value
Worksheets("KONTROL2").Range("A1").Value = etiket.aciklama2.Value
Worksheets("KONTROL2").Range("A29").Value = etiket.urunara.Value
End With
Set IE = Nothing

 

[Recep İpek]

IE.ExecWB 6, 2, 2, 0 'Print

satırı ile normalde print alabilirsiniz.

Sizde hata veriyor mu?

 

[hryildirim]

IE.ExecWB 6, 2, 2, 0 'Print

satırı ile normalde print alabilirsiniz.

Sizde hata veriyor mu?

Evet çıktı labiliyorum ama şöyle. Navigate komutu ile açlıan sayfada B1.click komutuyla yeni bir sayfa açılıyor benim isteğim yeni açılan sayfanın çıktısını almak. Ama komutla ancak navigate edilmiş olan syfanın çıktısı alınıyor. Açılan sayfada asp uzantılı bir sayfa. Kısacası benim ihtiyacım popup yolu ile açılan sayfanın çıktını almak.