Aktif sayfaya yaz butonu ekleyerek o sayfayı yazdırmak istiyorum. makro atamaya çalıştım beceremedim. yardımcı olabilecek arkadaşların yardımını bekliyorum.
Arkadaşım;
Ben bu siteye "Yaz makrosu" aramak için gelmiştim. Bulamadım. Size Yaz butonu ekleyerek istediğiniz sayfa nasıl yazdırılır yardımcı olayım. Şu adımları izlemelisiniz. Araçlar, Makro, Yeni Makro Kaydet. Makro adı : YAZ olsun. Kayıt başlayınca; Yazdıracağınız alanı bloklayınız. Dosya, Yazdırma alanını belirle adımlarını takip ederek, Baskı Önizleme ve sayfa ayarını yapıp Yazdır'dan yazıcı seçimini yaparak İptal etmelisiniz. Yazdırma makronuz hazır. Şimdi de Bu makroyu bir nesneye atamalısınız. Menülerin dışında bir yerde Sağ tıklayıp, Çizim'i etkin hale getiriniz. Excell Sayfasının altında dikdörtgen şekli var. Tıklayıp sayfanın herhangi bir yerine bu şekli çiziniz. (Veya sevdikleriniziin Resmini de yapıştırabilirsiniz.) Şekle Metin ekleyiniz (YAZDIR olabilir) Sonra şekle sağ tıklayıp Makro Atayınız. Karşınıza makrolarınız gelecek. YAZ makrosunu seçip atayınız. Şimdi bu şeklin üzerine geldiğinizde bir el belirecek. Şekle bastığınızda da Blokladığınız, Seçtiğiniz yazdırma alanını yazıcınıza gönderecektir. İyi Çalışmalar dilerim. T/A
If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0
a$ = Right$(a$, Len(a$) - 1)
For x = 1 To Len(a$)
If (Asc(Mid$(a$, x, 1)) > Asc("9")) Or (Asc(Mid$(a$, x, 1)) < Asc("0")) Then GoTo hata
Next x
If Len(a$) > 15 Then GoTo hata
a$ = String(15 - Len(a$), "0") + a$
For x = 1 To 15
v(x) = Val(Mid$(a$, x, 1))
Next x
s$ = ""
For x = 0 To 4
c(1) = v((x * 3) + 1)
c(2) = v((x * 3) + 2)
c(3) = v((x * 3) + 3)
If c(1) = 0 Then
e$ = ""
ElseIf c(1) = 1 Then
e$ = "Yüz"
Else
e$ = b$(c(1)) + "Yüz"
End If
e$ = e$ + y$(c(2)) + b$(c(3))
If e$ <> "" Then e$ = e$ + m$(x)
If (x = 3) And (e$ = "BirBin") Then e$ = "Bin"
s$ = s$ + e$
Next x
If s$ = "" Then s$ = "Sıfır"
If pozitif = 0 Then s$ = "Eksi" + s$
yaz$ = s$
GoTo tamam
hata: yaz$ = "Hata"
tamam:
End Function
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.