Druckformat

Private Sub Druck_Click()
Dim myListbox As Control
Set myListbox = Controls("Suchergebnis") 'anpassen
Dim OldTop As Double, OldLeft As Double, OldB As Double, Oldh As Double
OldB = Me.Width
Oldh = Me.Height
With myListbox
.SetFocus 'falls welche Steuerelemente vor der Listbox aktiv sind
OldTop = .Top
OldLeft = .Left
.Top = 0
.Left = 0
Me.Width = .Width
Me.Height = .Height
.SpecialEffect = fmSpecialEffectFlat
Me.PrintForm
.Top = OldTop
.Left = OldLeft
Me.Width = OldB
Me.Height = Oldh
.SpecialEffect = fmSpecialEffectSunken
End With
End Sub