Yazdırma

[abas]

Kolay gelsin arkadaşlar benim istediğim form diye bir sayfam var bir de liste diye sayfam var . liste sayfanın örneğin k2 hücresine form sayfasından yazrdımam gereken başlangıç sayfasını , L2 ye bitiş sayfasını m2 yede kopya sayısını yazıp bir yazdırma bütonu yapıp yazıdırmak istiyorum acaba bunu nasıl yapabilirim.
teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.
[vb:1:7abc9ab111]Sub yazdir()
Set s1 = Sheets("liste")
Sheets("veri").PrintOut From:=s1.[k2], To:=s1.[l2], Copies:=s1.[m2]
End Sub
[/vb:1:7abc9ab111]

 

[abas]

kolay gelsin dediğinizi yaptım fakat "subscript out range diye mesaj geliyor. birde "liste" sayfasında buton ve sayfa numaraları yazdıracağım yer . form sayfasıda yazdırlması gereken sayfa

Yardımız için teşekktür ederim

 

[Levent Menteşoğlu]

"veri" kelimesini "form" ile değiştirerek deneyin.

 

[abas]

denedim fakat o mesaji veriyor. koduda liste sayfasına yapıştırdım

 

[excelvba]

kodu normal bir module yapıştırıp, sonrada liste sayfasındaki bir butona bağlayarak deneyin.

 

[abas]

Kolay gelsin dedinizi yaptım Run- time error 9
subseript out of range diye mesaj veriyor.
Acaba bir örnek dosya yaparmısınız

 

[abas]

çok teşekkür ederim form sayfasının ismini veri yapınca çalıtı .Acaba birde mesaj kutusuda ekleyebirbiyiz ( tamam ve iptal)

Hepinize teşekkür ederim

 

[excelvba]

Aşağıdaki kodu deneyin.

"Veri" isimli sayfanızın adını "form" olarak değiştirebilirsiniz.

[vb:1:f4993b831a]Sub yazdir()
Set s1 = Sheets("liste")
sor = MsgBox("yazdırmayı onaylıyormusunuz?", 4, "YAZDIR ONAYI")
If sor = vbYes Then Sheets("form").PrintOut From:=s1.[k2], To:=s1.[l2], Copies:=s1.[m2]
End Sub
[/vb:1:f4993b831a]

 

[abas]

Çok teşekkür ederim.kod çalıyor.

hepinize kolay gelsin