[MAKRO] tek tıklamayla klasör içindeki excel dosyalarını yazırma

sulukule77 · 17-10-2017, 23:29

Arkadaşlar selamlar, bir klasör içinde 65 adet excel dosyam var ve bunlar diğer excel sayfalarından bağlantı (bağ yapıştırdım) içeriyor. Ve bir ana sayfam var. Buraya tüm verileri girdikten sonra 65 adet sayfamda bağ olduğu için veriler yazılıyor. Ana sayfama bir buton koyup bir tıklamayla 65 adet excel sayfamın yazdırılması için komut düğmeme ne tür bir kod girmeliyim? ben birkaç deneme yaptım ama olmadı... İlginize şimdiden tşk ederim

dsezgin · 18-10-2017, 11:28

(17-10-2017, 23:29)sulukule77 demiş ki: ben birkaç deneme yaptım ama olmadı... İlginize şimdiden tşk ederim

Excel de buton tıklama

Visual Basic
Dim Sayac as long
for sayac=1 to 65
bastır("Sayfa" & sayac, "A1:G")
next Sayac

Visual Basic
Sub Bastir(Sayfa, Alan As String)
'*** Alan--> "A1:G"
Dim REPORT As String
REPORT = Alan & Worksheets(Sayfa).Cells(Rows.Count, "B").End(xlUp).Row
With Worksheets(Sayfa)
.PageSetup.PrintArea = REPORT
.PageSetup.Draft = True
.PageSetup.PaperSize = xlPaperA4
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 2
.PrintOut Copies:=1, Preview:=True
End With

Deneme uygulamanizi konuya eklemeniz, daha fazla yardim bulmanizi saglar.
Access icinde, eger bir rapor uzerinden 65 sayfalik veri yazdiriliyorsa
docmd.OpenReport raporadi,acViewNormal,,kosul,acWindowNormal

acik olan nesne verilrini yazdirmak isteniyorsa
docmd.PrintOut acPrintAll, , , acHigh

kullanabilirsiniz.

sulukule77 · 19-10-2017, 10:40

Merhabalar, soruyu yanlış sordum,, masaüzerimde bir klasör var ve içerisinde 65 Adet excel sayfası var. Yapmak istediğim;herhangi bir excel sayfasına koyacağım buton ile tek tıklamayla 65 sayfayı yazdırmak. Sizce makro ile bunu yapmam mümkünmüdür?

Saygılar

EminA · 19-10-2017, 19:42

(19-10-2017, 10:40)sulukule77 demiş ki: Merhabalar, soruyu yanlış sordum,, masaüzerimde bir klasör var ve içerisinde 65 Adet excel sayfası var. Yapmak istediğim;herhangi bir excel sayfasına koyacağım buton ile tek tıklamayla 65 sayfayı yazdırmak. Sizce makro ile bunu yapmam mümkünmüdür?

Saygılar

Sayın sulukule77, bence önce yazdırmak istediğiniz çalışma kitabını kodla açmalısınız.

Örneğin ; Workbooks.Open Filename:="D:\Kitap1.xls"

Sonra yazdırma komutlarını kullanın. Yazdırma işlemi bitince çalışma kitabını tekrar kapatın. Mesajınızda 65 sayfa demişsiniz. Bundan bir çalışma kitabında 65 sayfayı mı kastettiniz yoksa 65 adet çalışma kitabını mı kastettiniz. Eğer 65 çalışma kitabıysa aç yazdır kapa biraz sizi zorlayacak gibi ve hatalara daha açık olacaktır. Kolay gelsin.

excelbilgi · **Kayıt Tarihi:** 05.04.2017

Ekteki dosyayı deneyebilirsiniz.
Sablon isimli dosyadaki makroyu çalıştırın. Bütün excel dosyalarını açar kapatır.
Aradaki kodu deneme olsun diye yazdım.
syf.printpreview yerine printout yazarsanız tüm dosyaların ilk sayfaları yazdırılır.

Her sayfanın yazıcı ayarının yapılı olması gerekir ki yoksa gereksiz sayfa yazdıracaktır.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[TABLO] Excel Aktarımı	kahramanselim	6	155	06-04-2024, 21:11 Son Mesaj: kahramanselim
	[FORM] form klasör içinde dosya kontrolü	obaysal42	4	2.181	29-12-2023, 10:24 Son Mesaj: burhanb
	Klasor Açma	Kars36	6	5.355	14-11-2023, 15:35 Son Mesaj: vetaltan
	Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk.	adnnfrm	2	226	05-08-2023, 02:23 Son Mesaj: adnnfrm
	[VBA] Masaüstündeki Tüm Access Dosyalarını Silmek	benuva	10	272	22-07-2023, 14:35 Son Mesaj: dsezgin
	Excel Birleştir Ve Süz	Bora34	6	793	16-02-2023, 18:33 Son Mesaj: Bora34
	Döngü Ile Koşula Dayalı Klasör Içerisindeki Dosyaları Silme	Mr.Midnight	2	212	19-11-2022, 22:46 Son Mesaj: alperalper
	Iç Içe Nasıl Klasör Oluştururum?	adnnfrm	3	199	31-05-2022, 14:08 Son Mesaj: adnnfrm

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL