Userformen lesen (drucken)
27.06.2005 09:12:03
Hans
Public Bereich As Range
Private Sub CommandButton1_Click()
Dim i
i = TextBox1.Value
Worksheets("Reiseabrechnung").PrintOut copies:=i
frm_reise.Show
End Sub
Private Sub CommandButton2_Click()
Dim t
t = MsgBox("Wollen Sie wirklich nicht drucken?", vbYesNo, "Druckabbruch")
If t = vbYes Then
Unload Me
Else: Exit Sub
End If
End Sub
Private Sub CommandButton3_Click()
Dim w
frm_drucken.Hide
Worksheets("Reiseabrechnung").PrintPreview
w = MsgBox("Wollen Sie nun drucken?", vbYesNo, "Druckvorschau")
If w = vbYes Then
CommandButton1_Click
Else
frm_Menü.Show
End If
End Sub
Private Sub SpinButton1_Change()
SpinButton1.Max = 10
SpinButton1.Min = 1
TextBox1.Value = SpinButton1
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
TextBox1.ControlTipText = "Geben Sie die Anzahl der gewünschten Kopien an (max.10)!"
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Sheets("Reiseabrechnung").Select
TextBox1.Locked = True
TextBox1.Value = 1
End Sub