Toplu yazdırma

[hakan1319]

Bir tablodaki öğrenci bilgilerinin her birinin ayrı sayfada toplu yazdırılması

 

[ziya]

G1 hücresine 1, 2, 3 .... yazıp yazdırabilirsiniz. B, C, D, E sütunlarına bir üst satırdaki formülleri düzenleyerek aşağıya doğru çoğaltmalısınız.

Ayrıca, "G1 hücresine 1, 2, 3 .... yazdır, print et" makrosu ekleyebilirsiniz.

 

[hakan1319]

öncelikle ilginiz için teşekkür ederim.

ben listedeki tüm kayıtları aynı anda nasıl yazdırabilirim.çünkü listede 250 kişi olacak bu kişilere tek tek ordaki rakamı yazmak zor olur

aşağıdaki linkte bir sertifika örneği var orda iki buton var bir butonda tek yazdır diğer butonda tüm listeyi yazdır var acaba bunun gibi yapma imkanı varmı.

http://www.excel.web.tr/f48/toplu-sertifika-yazdyrma-t121410.html

kusura bakmayın çok fazla bir bilgim yok yeni yeni öğreniyorum

 

[hakan1319]

Bir exceldeki verileri başka sayfadan nasıl toplu yazdırabilirim bu işi nasıl öğrenebilirim bir yolu varmı çünkü benim her zaman işim olacak bunu nasıl öğrenirim.

 

[ziya]

Makro, çok bildiğim bir şey değil. örneklerden alıntı yaparak birşey hazırladım. Umarım yardımcı olmuşumdur.

 

[hakan1319]

MERHABA AŞAĞIDAKİ HATAYI VERİYOR HEM RESİMDE VAR HEMDE KODU AŞAĞI YAZDIM AMA RESİMDEKİ GİBİ ARAPÇA HARFLER ÇIKIYOR ACABA ORDANMI KAYNAKLANIYOR HATA





Sub Yaz()
For i = 1 To Sheets("ÖĞRENCİ BİLGİLERİ").[A65536].End(xlUp).Row - 2
Sheets("YAZDIRMA SAYFASI").Range("A1:E26").Select
Sheets("YAZDIRMA SAYFASI").Cells(1, 7).Value = i

'----------------------------- YAZICIYA -----------------------------------
If Application.Dialogs(xlDialogPrintPreview).Show = False Then
MsgBox "Yazdırma İşlemi İptal Edildi !", vbExclamation, "UYARI"
Else
MsgBox "Belgeniz Yazdırıldı.", vbInformation, "BİLGİ"
End If
If MsgBox("Yazdırmaya Devam Edecek misiniz? ", vbYesNo + vbQuestion, "YAZDIRMAYA DEVAM MI?") = vbNo Then Exit For
Next i
End Sub

Sub SormadanYaz()
For i = 1 To Sheets("ÖĞRENCİ BİLGİLERİ").[A65536].End(xlUp).Row - 2
Sheets("YAZDIRMA SAYFASI").Cells(1, 7).Value = i
Range("A1:E26").Select


'----------------------------- YAZICIYA -----------------------------------
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
End Sub

 

[hakan1319]

öğrenci bilgileri sekmesinin türkçe karakterleri kaldırdım
makrodaki isminide o şekilde değiştirdim o hata düzeldi

ama her iki yazdır seçeneğindede hep 1. sayfayı yazıdırıyor.

 

[hakan1319]

sorun çözüldü teşekkür ederim dosyanın son halini yüklüyorum teşekkür ederim.

 

[ziya]

Uzun zaman siteye girmemiştim. Kendi sorununuzu çözmüşsünüz. İşe yaradığına sevindim.