heute hab ich ein Problem mit einem Userform, das ich ausdrucken möchte.
der Drucker fängt an zu drucken, aber druckt nur ca. 1/8 vom UF
printform geht also nicht so richtig.
Frage: kann ich dieses Uf noch anders ansprechen.
Gruß
Herby
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