filigran yazdırma (sayfa artalanına silik yazı) Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   Dim i As Integer
   Dim x As Integer
   Dim shp As Shape
   
   ActiveSheet.Unprotect
   Range("A1:IV65536").Locked = False

For Each shp In ActiveSheet.Shapes
      If shp.Type = msoTextEffect Then
         shp.Delete
      End If
   Next shp
   
   For i = 1 To ActiveSheet.UsedRange.Rows.Count
      If Rows(i).PageBreak = xlAutomatic Or _
         Rows(i).PageBreak = xlManual Or _
         i = 1 Then
         Cells(i, 1).Select

Set shp = ActiveSheet.Shapes.AddTextEffect _
            (msoTextEffect1, _
            "Mahmut BAYRAM", "Arial Black", _
            36#, msoFalse, msoFalse, _
            Cells(i, 1).Left + 40.5, _
            Cells(i, 1).Top + 180#)

For x = 1 To ActiveSheet.UsedRange.Columns.Count
            If Columns(x).PageBreak = xlAutomatic Or _
               Columns(x).PageBreak = xlManual Then
               Cells(i, x).Select

Set shp = ActiveSheet.Shapes.AddTextEffect _
               (msoTextEffect1, _
               "Mahmut BAYRAM", "Arial Black", _
               36#, msoFalse, msoFalse, _
               Cells(i, x).Left + 40.5, _
               Cells(i, x).Top + 180#)

With shp
                  With .Fill
                     .Visible = msoTrue
                     .Solid
                     .ForeColor.SchemeColor = 22
                     .Transparency = 0.51
                  End With
                  With .Line
                     .Weight = 0.75
                     .DashStyle = msoLineSolid
                     .Style = msoLineSingle
                     .Transparency = 0#
                     .Visible = msoFalse
                  End With
                  .LockAspectRatio = msoTrue
                  .Height = 51#
                  .Width = 156#
                  .Rotation = 40#
               End With
            End If
         Next x
      End If
   Next i
   
   ActiveSheet.Protect DrawingObjects:=True
   
   Set shp = Nothing
End Sub

Benzer Sonuçlar
No	Makro Adı
1	filigran yazdırma (sayfa artalanına silik yazı)
2	sütunlarin gizlenmesi
3	hücredeki yazi karakterinin rengine göre filtreleme
4	hücredeki renge göre filtreleme
5	otomatik cümle yazar
6	mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır)
7	yazdırmak için süzme şart olsun 2
8	Özel Sayfaları Yazdır: Yazdırma seçeneklerinden ayarı kullanmak yerine, bu kodu, özel sayfa aralığı yazdırmak için kullanabilirsiniz. 5 ila 10 arasındaki sayfaları yazdırmak istediğinizi varsayalım. Sadece bu VBA kodunu çalıştırmanız ve başlangıç sayfası ve bitiş sayfasını girmeniz yeterlidir.
9	seçilen alanlari bir kağitda yazdırır eder
10	seçilen alanları bir kağıtta yazdırır eder
11	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
12	sayfanızda hücreye 1 yazılınca bire karşılık gelen cümle otomatik yazılır
13	5. sütunundaki hücreye girilen veriye karşılık farklı farklı makroların çalışması
14	buton ile diğer sayfayı yazdirmak
15	veri olan sayfaları yazdırma
16	sayfada a,b,c,d harflerinden birine tıklayınca istenileni yazdırma
17	verilen değere göre farklı hücreye bilgi veren bir makro
18	wordpada yazdırmak istediğiniz bir metni excel içerisinden yazdırmak için
19	listbox1'in içindeki bütün verileri excel sayfasına yazdırma
20	menü çubuğunun silinmesi ve özel bir menünün oluşturulması

Benzer Sonuçlar

Makro Adı

filigran yazdırma (sayfa artalanına silik yazı)

sütunlarin gizlenmesi

hücredeki yazi karakterinin rengine göre filtreleme

hücredeki renge göre filtreleme

otomatik cümle yazar

mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır)

yazdırmak için süzme şart olsun 2

Özel Sayfaları Yazdır: Yazdırma seçeneklerinden ayarı kullanmak yerine, bu kodu, özel sayfa aralığı yazdırmak için kullanabilirsiniz. 5 ila 10 arasındaki sayfaları yazdırmak istediğinizi varsayalım. Sadece bu VBA kodunu çalıştırmanız ve başlangıç sayfası ve bitiş sayfasını girmeniz yeterlidir.

seçilen alanlari bir kağitda yazdırır eder

seçilen alanları bir kağıtta yazdırır eder