Hallo, wir haben in Word ein Makro zum Etikettendruck. Leider passt das Gedruckte nun nicht zu unserem Etikettenpapier.
Wir benutzen Zweckform 3477! Offensichtlich wird die Anordnung der Adressdaten manuell berechnet, verstehe jedoch die Formel nicht. Hat jemand eine Ahnung, wie das hinzubekommen wäre?
Etikettenpapier hat 14 Etiketten á ca. 10.5 x 4.4
WordBasic.InsertFrame
If (EtikNr / 2) = WordBasic.Int(EtikNr / 2) Then Horizontal$ = "12,5cm" Else Horizontal$ = "2cm"
Vertikal = 25.5 - 4# * WordBasic.Int((EtikNr - 0.5) / 2)
'Vertikal_$ = Str(WordBasic.Int(Vertikal)) + "," + WordBasic.[Right$](Str(10 * (Vertikal - WordBasic.Int(Vertikal))), 1) + "cm"
WordBasic.FormatFrame Wrap:=1, WidthRule:=1, FixedWidth:="8 cm", HeightRule:=2, FixedHeight:="3,5 cm", PositionHorz:=Horizontal$, PositionHorzRel:=1, DistFromText:="0,25 cm", PositionVert:=Vertikal_$, PositionVertRel:=1, DistVertFromText:="0 cm", MoveWithText:=0
WordBasic.FormatBordersAndShading FromText:="1 pt", ApplyTo:=0, Shadow:=0, TopBorder:=0, LeftBorder:=0, BottomBorder:=0, RightBorder:=0, HorizBorder:=0, VertBorder:=0, TopColor:=0, LeftColor:=0, BottomColor:=0, RightColor:=0, HorizColor:=0, VertColor:=0, Shading:=0, Foreground:=0, Background:=0
If Adr$ = "" Then
WordBasic.EditPaste
Else
WordBasic.Insert Adr$
End If
EtikNr = EtikNr + 1
WordBasic.EndOfDocument
Next Anz
Wir benutzen Zweckform 3477! Offensichtlich wird die Anordnung der Adressdaten manuell berechnet, verstehe jedoch die Formel nicht. Hat jemand eine Ahnung, wie das hinzubekommen wäre?
Etikettenpapier hat 14 Etiketten á ca. 10.5 x 4.4
WordBasic.InsertFrame
If (EtikNr / 2) = WordBasic.Int(EtikNr / 2) Then Horizontal$ = "12,5cm" Else Horizontal$ = "2cm"
Vertikal = 25.5 - 4# * WordBasic.Int((EtikNr - 0.5) / 2)
'Vertikal_$ = Str(WordBasic.Int(Vertikal)) + "," + WordBasic.[Right$](Str(10 * (Vertikal - WordBasic.Int(Vertikal))), 1) + "cm"
WordBasic.FormatFrame Wrap:=1, WidthRule:=1, FixedWidth:="8 cm", HeightRule:=2, FixedHeight:="3,5 cm", PositionHorz:=Horizontal$, PositionHorzRel:=1, DistFromText:="0,25 cm", PositionVert:=Vertikal_$, PositionVertRel:=1, DistVertFromText:="0 cm", MoveWithText:=0
WordBasic.FormatBordersAndShading FromText:="1 pt", ApplyTo:=0, Shadow:=0, TopBorder:=0, LeftBorder:=0, BottomBorder:=0, RightBorder:=0, HorizBorder:=0, VertBorder:=0, TopColor:=0, LeftColor:=0, BottomColor:=0, RightColor:=0, HorizColor:=0, VertColor:=0, Shading:=0, Foreground:=0, Background:=0
If Adr$ = "" Then
WordBasic.EditPaste
Else
WordBasic.Insert Adr$
End If
EtikNr = EtikNr + 1
WordBasic.EndOfDocument
Next Anz