Udskrivning fra en Access-formular

Undskyld men det er en KENDT "Feature":

  Formular virke lige som "data access page", man udskriv lige hvad er på skærm, du skal brug en rapport.

http://support.microsoft.com/default.aspx?scid=kb;en-us;202126

Prøv denne kode på din print knap:

Private Sub Command277_Click()
Me.Refresh

On Error GoTo Err_Command277_Click

    Dim stDocName As String

    stDocName = "Alcohol Test"
    DoCmd.OpenReport stDocName, acNormal, , "ID=" & Me!ID

Exit_Command277_Click:
    Exit Sub

Err_Command277_Click:
    MsgBox Err.Description
    Resume Exit_Command277_Click
   
End Sub

Problemet er bare at der udskrives alt (over 100 sider) og ikke kun det der er synlig/på skærmen.

Det skal siges, st det fungerede fint, men jeg ved ikke hvad der er sket siden det problem opståed.

Denne del af koden siger at den skal kun udskrive en (1) og det er den den viser når du trykker på skærmen.

send din db til jan@schoesler.com så skal jeg lave det for dig?

'Preview kode:

Private Sub Command17_Click()
On Error GoTo Err_Command17_Click

    Dim stDocName As String

    stDocName = "Copy of Produkt"
    DoCmd.OpenReport stDocName, acPreview, , "ID=" & Me!ID

Exit_Command17_Click:
    Exit Sub

Err_Command17_Click:
    MsgBox Err.Description
    Resume Exit_Command17_Click
   
End Sub

'Print kode:


Private Sub Command18_Click()
On Error GoTo Err_Command18_Click

    Dim stDocName As String

    stDocName = "Copy of Produkt"
    DoCmd.OpenReport stDocName, acNormal, , "ID=" & Me!ID

Exit_Command18_Click:
    Exit Sub

Err_Command18_Click:
    MsgBox Err.Description
    Resume Exit_Command18_Click
   
End Sub

Vil det sige, at jeg skal droppe formularen?

Du skal ikke droppe formularen. Udskrift foregår altid via en rapport. Formen er mere en præsentation af data indtastning.