Wie kann ich bei Visual Basic einen Button

Computer: Software & Programmierung Visual Basic
#1

… so Programmieren, dass er eine Liste ausdruckt?

Ich habe auf der Arbeit eine Prüfmitteldatenbank erstellt. Den Druckerbutton habe ich schon Programmiert. Das Problem ist, wenn ich die Liste über das Programm aufrufe und diese Drucken möchte, Druckt er mit nur das aus was auf dem Bildschirm sichtbar ist und nicht die ganze Liste.

So habe ich den DruckerButton Programmiert:

Option Compare Database

Private Sub Kom_Gruppe4_AfterUpdate()
Me.Liste6.Requery
End Sub

Private Sub SearchDate3_AfterUpdate()
Me.Liste6.Requery
End Sub

Private Sub SearchDate3_Change()
Me.Liste6.Requery
End Sub
Private Sub btn_Close_BGVA3_Click()
On Error GoTo Err_btn_Close_BGVA3_Click

'If Me.Dirty Then Me.Dirty = False
DoCmd.Close acForm, „for_BGVA3“, acSaveNo

Exit_btn_Close_BGVA3_Click:
Exit Sub

Err_btn_Close_BGVA3_Click:
MsgBox Err.Description
Resume Exit_btn_Close_BGVA3_Click

End Sub
Private Sub btn_Print_BGVA3_Click()
On Error GoTo Err_btn_Print_BGVA3_Click

DoCmd.RunCommand acCmdPrint
DoCmd.RunCommand acCmdSelectRecord
DoCmd.PrintOut acSelection

Exit_btn_Print_BGVA3_Click:
Exit Sub

Err_btn_Print_BGVA3_Click:
MsgBox Err.Description
Resume Exit_btn_Print_BGVA3_Click

End Sub

Wäre super, wenn mir da jemand helfen könnte. Programmieren ist nicht so meine Welt. ICh kämpfe mich da durch :wink:

#2

Hallo Hubo,

direkt kann ich Dir keinen Code liefern, aber in solch einem Fall würde ich den Druck zu Fuß auslösen und parallel dazu den Makrorecorder laufen lassen. Dann siehst Du, wie Excel das macht, kannst unnötigen Code rauswerfen und den Rest Deinem Button verpassen.

Gruß
Pauli