hallo,
ich habe über die etikettenfunktion von word versucht ein kleines makro zu
schreiben welches mir über einen dialog in dem man versch. eingaben machen kann
etiketten druckt.
mein problem bei der ganzen sache… ich bin nicht fähig die schriftart über
vba
zu ändern. wenn ich manuell die die etikettenfunktion in word aufrufe einen text
in das textfeld schreibe --> rechte maustaste klicke habe ich allerdings die
möglichkeit die schriftart, grösse etc zu ändern.
kennt einer einen trick für die ganze sache ? ich habe anbei mal meinen code
mit
angehängt.
vielen dank
thomas gregg
— code —
Private Sub cmdDrucken_Click()
Dim ret As Integer
Dim Text As String
'erstmal mal schaun ob auch alles richtig ausgefüllt wurde
(Fehlerabfangerei)
If Me.OptionButton2.Value = True Then
Select Case Trim(Me.txtSpalte.Text)
Case „1“, „2“, „3“
Case Else
MsgBox „Die Angabe für Spalte muss eine Zahl zwischen 1 und 3
sein!“, vbOKOnly + vbCritical, „KKL Apotheke [Etiketten] 1.0 - Fehler“
GoTo ende
End Select
Select Case Trim(Me.txtZeile.Text)
Case „1“, „2“, „3“, „4“, „5“, „6“, „7“, „8“
Case Else
MsgBox „Die Angabe für Zeile muss eine Zahl zwischen 1 und 8
sein!“, vbOKOnly + vbCritical, „KKL Apotheke [Etiketten] 1.0 - Fehler“
GoTo ende
End Select
End If
'nochmal nachfragen ob das jetzt auch so in Ordnung geht
ret = MsgBox(„Sind alle Eintragungen vollständig? Soll nun gedruckt werden?“,
vbYesNo, „KKL Apotheke [Etiketten] 1.0“)
'6 = ja
If ret = 6 Then
Text = Me.txtName.Text & " " & Me.cmbStation.Text & vbCr & Me.
txtBestandteile1.Text & " " & Me.txtMenge1.Text & vbCr & Me.txtBestandteile2.Text
& " " & Me.txtMenge2.Text & vbCr & Me.txtBestandteile3.Text & " " & Me.txtMenge3.
Text & vbCr & "Anw.: " & Me.txtAnwendung.Text & vbCr & Me.txtHaltbarkeit.Text &
vbCr & "KKL 76307 Karlsbad " & Date
'Eine Seite voll bedrucken oder nicht!
If Me.OptionButton1.Value = True Then
Application.MailingLabel.PrintOut „May + Spies 96900046“, Text,
False, wdPrinterDefaultBin, False
Else
'hier zusätzlich noch die Anzahl der Zeile und Spalte, welche
gedruckt werden soll
Application.MailingLabel.PrintOut „May + Spies 96900046“, Text,
False, wdPrinterDefaultBin, True, Me.txtZeile.Text, Me.txtSpalte.Text
Application.MailingLabel.PrintOut
End If
End If
ende:
End Sub