CD ' ye yazdırma

[canavar_55]

Merhabalar.

Bir excel dosyasının içindeki yalnızca istediğim çalışma sayfalarını CD ortamına yazdırabilirmiyim. Mesela, a,b,c,d diye 4 sayfadan a sayfasındaki bir buton ile b ve d sayfalarını yazdırmak istiyorum.

Teşekkürler.

 

[seismic]

Direk CD'ye değil ama C sürücüsünün altına yeni çalışma kitabı olarak kaydetmek isterseniz,makro kaydet ile oluşturduğum bu kodlardan faydalanabilirsiniz.Dosya yollarını değiştirerek CD'ye yazmayı deneyebilirsiniz.Ben deneyemiyorum çünkü bu makinada CD ROM sürücüsü yok.Ayrıca ustalar bu konuda daha kesin çözümler sunabilirler inancındayım.


Sub Makro1()

Sheets("c").Select
Sheets("c").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Kitap2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Sheets("d").Select
Sheets("d").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Kitap3.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Sheets("a").Select
End Sub

 

[canavar_55]

İlginiz için teşekkür ederim.