- Katılım
- 2 Temmuz 2005
- Mesajlar
- 80
Mrb.arkadaşlar kolay gelsin sorunum için formda arama yaptım birkaç başlık buldum ve bu kodları uyguladım ancak yinede bir yazdırma sorunu var çözemedim.Sorunum excelde belirlediğim alanın yazdırılması konusu ancak kodları aşağıdaki gibi yazdığım halde bu alanı yazmıyor teşekkurler..
Sheets("Maas").Range("A1:AJ31").PrintPreview
If MsgBox("Bu Sayfayı Bu Haliyle Yazdırmak İstiyormusunuz", vbYesNo, "D İ K K A T") = vbYes Then
Sheets("Maas").PageSetup.PrintArea = "A1:AJ31"
Sheets("Maas").PrintOut copies:=1, collate:=True
Else: Exit Sub
End If
Sheets("Maas").Range("A1:AJ31").PrintPreview
If MsgBox("Bu Sayfayı Bu Haliyle Yazdırmak İstiyormusunuz", vbYesNo, "D İ K K A T") = vbYes Then
Sheets("Maas").PageSetup.PrintArea = "A1:AJ31"
Sheets("Maas").PrintOut copies:=1, collate:=True
Else: Exit Sub
End If