-
- Destek
-
-
Özel Arama
![]() |
Sub soruKagidiYazdir()
sonA = Cells(Rows.Count, 1).End(3).Row - 1
If sonA < 1 Then Exit Sub
bas = [F1]
If bas = "" Or bas < 1 Then bas = 1
If son > sonA Then bas = sonA
son = [F2]
If son = "" Or son > sonA Then son = sonA
If bas > son Then son = bas
For i = bas To son
With Sheets("sorular")
.PageSetup.LeftHeader = "No : " & Cells(i + 1, 2) & vbCr & _
"Adı Soyadı : " & Cells(i + 1, 3) & vbCr & _
"-----------------------------------------------------"
' .PrintOut
.PrintPreview
End With
Next i
End Sub
mkustahaliloglu yazdı:listeden öğrencilerin ad ve soyadları ile numaraları alıp altına soruları ekleyip yazdırma kısmı tamam..
header kısmına üniversite/fakülte/bölüm/ders adları ile sınav türü bilgileri ve tarih eklemek istedim ama sürekli hata verdi.
yine header kısmına bir de imza eklesek..
hatta abartıp sağ header bölümüne üniversite logosu eklesek olur mu?
çok teşekkür ederim.
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir