Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmPrint

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdPrint_Click()
   Application.ScreenUpdating = False
   keybd_event VK_SNAPSHOT, 1, 0, 0
   Workbooks.Add 1
   ActiveSheet.Range("A1").Select
   Application.Wait Now + TimeValue("00:00:01")
   ActiveSheet.PasteSpecial _
      Format:="Bitmap", _
      Link:=False, _
      DisplayAsIcon:=False
   With ActiveSheet
      .PageSetup.Orientation = xlLandscape
      .PageSetup.LeftHeader = "Meine UserForm"
      .PrintOut
   End With
   ActiveWorkbook.Close False
   Application.ScreenUpdating = True
End Sub

StandardModule: Modul1

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 CallForm()
   frmPrint.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen API und Drucker