Public Sub OVProc_Stückliste_drucken(ByRef oOverview As PsipentaOverview)
 Dim Selection()      As Long
 Dim i                As Long
 Selection = oOverview.getSelectionSet
    BelegDruckForm strBelegName:="pstk_d", _
    strParameter1:=oOverview.getFieldContent("PSTK_PRI_KEY", , Selection(i))
 
End Sub

Private Sub NextBtn_Click()
???
End Sub

Gru?

Frank