ich habe eine Frage an Euch Spezialisten. Wie könnte der Code aussehen, der es mir ermöglicht, nur die Registerseite die aktiviert ist zu drucken.
Wäre schön wenn jemand die Lösung kennt.
Gruß
Andi
ich habe eine Frage an Euch Spezialisten. Wie könnte der Code aussehen, der es mir ermöglicht, nur die Registerseite die aktiviert ist zu drucken.
Wäre schön wenn jemand die Lösung kennt.
Gruß
Andi
mal als Ansatz
Userform drucken
Private Label1_Click()
Me.PrintForm
End Sub
Ein Label auf der UserForm zeichnen ohne Text und bei click wir die Userform gedruckt
Von JoWe
der Vollständigkeit halber: Wenn die UserForm mit Titelleiste gedruckt werden soll, wie folgt:
Standardmodul:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
Sub Test()
UserForm1.Show
End Sub
Klassenmodul der UserForm:
Private Sub CommandButton1_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", _
Link:=False, DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
' Querformat auf einer Seite
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
' ende Querformat
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
End Sub
Hans W Herber
Gruß Hajo