Code:
GenerateFormattedTextBox(tmpView, Date.Now, 150, 150, SheetName & "Feld_Datum_Druck", catMiddleLeft, 2, 0)
WritePrintDate(tmpSheet, tmpView)
Public Sub WritePrintDate(ByVal tmpSheet As DrawingSheet, ByVal tmpView As DrawingView)
Dim tmpTexts As DrawingTexts
Dim tmpText As DrawingText
Dim SheetName As String
Try
tmpTexts = tmpView.Texts
SheetName = tmpSheet.Name.Substring(InStr(tmpSheet.Name, "."))
For i = 1 To tmpTexts.Count
tmpText = tmpTexts.Item(i)
If InStr(tmpText.Name, "Feld_Datum_Druck") Then
tmpText.Text = Date.Now
End If
Application.DoEvents()
Next
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Fehler in Modul WritePrintDate")
Application.DoEvents()
End Try
End Sub
Public Sub GenerateFormattedTextBox(ByVal tmpView As DrawingView, ByVal textValue As String, ByVal pos_x As Double, ByVal pos_y As Double, ByVal textName As String, _
ByVal anchorPosition As String, ByVal size As Double, ByVal angle As Double)
Dim NewText As DrawingText
Try
NewText = tmpView.Texts.Add(textValue, pos_x, pos_y)
NewText.Name = textName
NewText.SetFontName(0, 0, "Monospac821 BT")
NewText.SetFontSize(0, 0, size)
NewText.AnchorPosition = anchorPosition
NewText.Angle = angle
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "Fehler in Modul GenerateFormattedTextBox")
Application.DoEvents()
End Try
End Sub