Yazdırma komutu

[Ercan_ÇELİKOĞLU]

Merhaba değerli excel web üye arkadaşlarımız. sizden istediğim örneğin excelde birden fazla çalışma sayfam var diyelimki sayfa1-sayfa2-sayfa3 sayfa1 den 3 tane sayfa2 den 2 tane tekbir butonla aynı anda yazdırmak istiyorum bana bu konuda örnek verirmisiniz saygılarımla.

 

[İhsan Tank]

Merhaba değerli excel web üye arkadaşlarımız. sizden istediğim örneğin excelde birden fazla çalışma sayfam var diyelimki sayfa1-sayfa2-sayfa3 sayfa1 den 3 tane sayfa2 den 2 tane tekbir butonla aynı anda yazdırmak istiyorum bana bu konuda örnek verirmisiniz saygılarımla.

merhaba
boş bir module atayarak deneyiniz

Option Explicit
Sub yazdır()
Dim ts, kaplan
ts = "Sayfa1"
kaplan = "Sayfa2"
Sheets(ts).PrintOut Copies:=3
Sheets(kaplan).PrintOut Copies:=2
End Sub

 

[Ercan_ÇELİKOĞLU]

merhaba
boş bir module atayarak deneyiniz

Option Explicit
Sub yazdır()
Dim ts, kaplan
ts = "Sayfa1"
kaplan = "Sayfa2"
Sheets(ts).PrintOut Copies:=3
Sheets(kaplan).PrintOut Copies:=2
End Sub

Teşekkürü bir borç bilirim ts ve kaplan sayfalara karşılık bir anlama geliyo galiba bu durumda 3. ve 4. sayfalarıda eklemek için
Sub yazdır()
Dim ts, kaplan, gölge, deney
ts = "Sayfa1"
kaplan = "Sayfa2"
gölge ="sayfa3"
deney ="sayfa4"
Sheets(ts).PrintOut Copies:=3
Sheets(kaplan).PrintOut Copies:=2
Sheets(gölge).PrintOut Copies:=2
Sheets(deney).PrintOut Copies:=2
End Sub[/CODE][/QUOTE]

olur heralde?

 

[İhsan Tank]

Teşekkürü bir borç bilirim ts ve kaplan sayfalara karşılık bir anlama geliyo galiba bu durumda 3. ve 4. sayfalarıda eklemek için
Sub yazdır()
Dim ts, kaplan, gölge, deney
ts = "Sayfa1"
kaplan = "Sayfa2"
gölge ="sayfa3"
deney ="sayfa4"
Sheets(ts).PrintOut Copies:=3
Sheets(kaplan).PrintOut Copies:=2
Sheets(gölge).PrintOut Copies:=2
Sheets(deney).PrintOut Copies:=2
End Sub[/CODE]

olur heralde?[/QUOTE]

olur tabi dilerseniz

Sheets("Sayfa1").PrintOut Copies:=3

şeklindede yapabilirsiniz.

ben biraz fanatik bir taraftarım ondan böyle yazdım

 

[Ercan_ÇELİKOĞLU]

olur heralde?

olur tabi dilerseniz

Sheets("Sayfa1").PrintOut Copies:=3

şeklindede yapabilirsiniz.

ben biraz fanatik bir taraftarım ondan böyle yazdım [/QUOTE]

saygıyla teşekkür ederim denedim oldu beni büyük bir zahmetten kurtardınız sağolun.

 

[İhsan Tank]

olur tabi dilerseniz

Sheets("Sayfa1").PrintOut Copies:=3

şeklindede yapabilirsiniz.

ben biraz fanatik bir taraftarım ondan böyle yazdım

saygıyla teşekkür ederim denedim oldu beni büyük bir zahmetten kurtardınız sağolun.[/QUOTE]

rica ederim
:yazici: