Etiket font boyutlarının farklı yazdırma

[CRSSRC]

Merhabalar,

Excelde hazırlanan etiket programı üzerinde cıktı alabiliyorum fakat parca numaralarının son 5 hanesinin 28 punto olmasını istiyorum. Nasıl yapabilirim, tşkler.

 

[serqet]

Şu Şekilde Deneyin Birde ?

Sub Yazdir()

ThisWorkbook.Sheets("Depo").Range("a2").CurrentRegion.Select

oRow = Selection.Rows.Count
oCol = Selection.Columns.Count


For i = 2 To oRow
    
    If Sheets("Depo").Cells(i, 8).Value = "*" Then
    
        Sheets("Yaz").Cells(3, 2).Value = Sheets("Depo").Cells(i, 1).Value & _
            " " & Sheets("Depo").Cells(i, 2).Value
        
        Sheets("Yaz").Cells(4, 2).Value = Sheets("Depo").Cells(i, 3).Value
        
        Sheets("Yaz").Cells(5, 2).Value = Sheets("Depo").Cells(i, 4).Value
        Sheets("Yaz").Cells(6, 2).Value = Sheets("Depo").Cells(i, 5).Value
        Sheets("Yaz").Cells(7, 2).Value = Sheets("Depo").Cells(i, 6).Value
        Sheets("Yaz").Cells(8, 2).Value = Sheets("Depo").Cells(i, 7).Value
        Sheets("Yaz").Select
        Range("B4").Select
        With ActiveCell.Characters(Start:=5, Length:=5).Font
        .Name = "Tahoma"
        .FontStyle = "Kalın"
        .Size = 28
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("B6").Select
        With ActiveCell.Characters(Start:=6, Length:=5).Font
        .Name = "Tahoma"
        .FontStyle = "Kalın"
        .Size = 28
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    
    ThisWorkbook.Sheets("Yaz").PrintOut
    
    End If
    
Next i

End Sub

 

[serqet]

Buda dosyanız.

 

[CRSSRC]

Serqet teşekkür ederim desteğin için, iş yerinde deneyeceğim.