Printe 2 forms på en knap med pop-up om om hvor mange kopier

jeg har forsøgt mig med noget ala det du har gang i der. se evt.: http://www.eksperten.dk/spm/373452

det var et svar...

Private Sub Kommandoknap4_Click()
On Error GoTo Err_Kommandoknap4_Click
  A = InputBox("Antal kopier", "Antal")
    Dim stDocName As String
    Dim MyForm As Form

    stDocName = "kunde"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut , , , , A
    DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Kommandoknap4_Click:
    Exit Sub

Err_Kommandoknap4_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap4_Click
   
End Sub

Det skulle helst være pop-up!

det er min også, den popper op hos mig
Har du lagt denne:
A = InputBox("Antal kopier", "Antal")
Lige under:
Private Sub Kommandoknap4_Click()
On Error GoTo Err_Kommandoknap4_Click

for hvis du sætter den længere ned, virker popup ikke

Den siger jo bare at variablen ikke at defineret!!

Private Sub Kommandoknap4_Click()
Dim A as integer
On Error GoTo Err_Kommandoknap4_Click
  A = InputBox("Antal kopier", "Antal")

OK... Nu virker det. Men du mangler bare at skrive at man også skal indsætte en label ved navn a

?? hvad mere.

Du skal ikke indsætte en label, det er en inputbox.
Værdien fra 'A = InputBox("Antal kopier", "Antal")
Bliver brugt her '  DoCmd.PrintOut , , , , A