Udskrift på skærm eller printer

Du har jo koden til at udskrive til skærm. koden til at udskrive til printer er denne:

DoCmd.OpenReport "RPTFangststed", acViewNormal, "", "", acNormal

Da du har 4 årstider der skal udskrives på 2 forsdkellige måder, er du nødt til ast have 8 alternativknapper.

Hvis du vil udskrive rapporterne skal du blot skrive acViewNormal i stedet for acViewPreview i alle dine DoCmd.OpenReport statements.

Ja, mugs denne gang fik du mig så med 0 sekunder! Jeg tror du får hjælp fra et højere sted :0)

Højere sted - tjaaa, men idag er der ingen der kan slå mig.

Jeg har nemlig føs'da' idag.

Jamen te'løk. Så gi'r han nok en lille en...

Har du fået nogen gode gaver? F.eks. en ny Access (birtday edition) eller en ny mus (med selvjusterende antigigtindlæg), eller "det intelligente tastatur" (skriver selv svarene på Eksperten spørgsmål) - det kunne jo være forklaringen på din hurtighed. Eller måske er det bare vinen?

Jeg kan da godt give en lille en. Hvornår kommer du?

Lidt bøger, en masse telefonhilsener og kort. Og ikke mindst en "til lykke email" fra min niece og nevø. Det er næsten det bedste.

Men ingen mus eller tastatur, så du bliver nødt til at trækkes med mig lidt endnu.

Jeg trækker gerne (misforstå det nu ikke!). Fortsat god dag. ;0)

Tak gamle ven ;o)

Tusinde tak skal du have, tilykke med fødselsdagen.

Tak Brian ;o)

Tillykke, gamle Jas! Var det 35, du blev? ;o)

Brian-> Jeg plejer at lave 2 knapper: "Udskriv" og "Vis udskrift"

I din formular vil jeg så lave en udskriv-procedure:
Private Sub Udskriv(View as Integer)
  On Error GoTo errorhandler
  Select Case Ramme1
  Case Is = 1
    DoCmd.OpenReport "RPTFangststed", View, , "[TBLfangststed]![sæson] = 'Forår'"
    Reports(RPTFangststed).ZoomControl = 100
  Case Is = 2
    DoCmd.OpenReport "RPTFangststed", View, , "[TBLfangststed]![sæson] = 'Sommer'"
    Reports(RPTFangststed).ZoomControl = 100
  Case Is = 3
    DoCmd.OpenReport "RPTFangststed", View, , "[TBLfangststed]![sæson] = 'Efterår'"
    Reports(RPTFangststed).ZoomControl = 100
  Case Is = 4
    DoCmd.OpenReport "RPTFangststed", View, , "[TBLfangststed]![sæson] = 'Vinter'"
    Reports(RPTFangststed).ZoomControl = 100
  End Select
errorhandler:
  If Err.Number = 2501 Then
    Resume Next
  End If
End Sub


På din Udskriv-knap lægger du denne kode:

Private Sub cmdUdskriv_Click()
  Udskriv acviewNormal
end sub

På din Vis udskrift-knap lægger du denne:
Private Sub cmdVisUdskrift_Click()
  Udskriv acviewpreview
end sub

Tak skal du have. Men byt lige cifrerne og læg 1 til så passer pengene ;o)