下記はテキストボックス1のテキストを上下中央に表示します。
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
With Me.テキストボックス1
.Visible = False
Me.FontSize = .FontSize
Me.FontName = .FontName
Me.CurrentX = .Left
Me.CurrentY = (Me.Height / 2) - (Me.TextHeight(.Value) / 2)
Me.Print .Value
End With
End Sub
通報 ...