Udskrive en formuler med hvid baggrund

Hvorfor dog udskrive formularen? Du kan altid udskrive formularens aktuelle post i en rapport ved at anvende formularens unikke 'ID-felt som kriterie således:

DoCmd.OpenReport "RAPPORTNAVN", acViewPreview, , "[TABELNAVN]![Autoløbenr] = " & Me!Autoløbenr & ""

det er en formular med en underformular(sub)når jeg så laver min rapport syntes jeg ikke jeg kan rette i underformulare i rapporten uden den også bliver rettet i den formular man ser den fra

Det forstår jeg ikke. Du kan ikke rette i en rapport!

underformulare = underrapport?

Det er muligt terry.

Jeg tror, hlnviv er ude i noget med en - som han skriver - underformular placeret på en rapport. Derfor vil rettelser i underformularen også påvirke formularen, hvor han bruger den samme underformular. Eller hvad, hlnviv?

Løsningen er at gemme formularen og underformularen som rapporter (Filer/Gem som). Derefter kan du tilrette farverne og til sidst "lægge puslespillet" med din nye rapport og underrapport.

Det er som fdata siger men desvære så virker det ikke. det var også min første ide men når jeg retter farven i underformulareni raporten bliver det også rettet i instastnings formularen
Hej Terry det er den DB med måleværktøjer du hjalp mig med hvis du husker det
Hilsen Heine

Hov skal både min formual og min underformular gemmes hver for sig som rapport det prøver jeg lige på mandag (så vender jeg tilbage)

Så faldt tiøren!!
Ja, du skal gemme formular/underformular til brug for indtastningformularen
og rapport/underrapport til udskriften.
På den måde får du en farvet og en sort/hvid udgave.

så blev det mandag desvære så virker det ikke når jeg står i min formular så kalder jeg min underformular frem afhængig af mit id nummer hvis der bliver skrevet det f.eks 10 så er det den underformular der kommer frem hvis der bliver skrevet 20 så er det en anden men det er den man står i der skal kunne udskrives, både formular og underformular

har en kode der ser sådan her ud til af udskrive min form+underform i en rapport

Private Sub Kommandoknap27_Click()
On Error GoTo Err_Kommandoknap27_Click

    Dim stDocName As String

    DoCmd.RunCommand acCmdSaveRecord

    stDocName = "Måleværktøjer Stamkort Rapport"
    DoCmd.OpenReport "Måleværktøjer Stamkort Rapport", acViewNormal, , "[Værktøjs  NR]=" & Me![Værktøjs  NR]

Exit_Kommandoknap27_Click:
    Exit Sub

Err_Kommandoknap27_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap27_Click
   
End Sub

og for denne fejl
Datatyperne stemmer ikke overens i kriterieudtrykket

Til fdata jo det med farven virker men det hjælper bare ikke sålænge den ikke vil udskrive rapport/underrapport den skal jo selv kunne finde ud af hvilken /underrapport den skal bruge når jeg trykker på min udskrifts knap. Det var derfor jeg var ude i at man måske kunne udskrive formular og underformular med hvid baggrund istedet for
Vh Heine

så med andre ord er der en kode for at udskrive aktuel formular/aktuel post med hvid baggrund

Når du laver en underrapport, må den jo få data fra en navngiven rapport.
Denne fejl:

"Datatyperne stemmer ikke overens i kriterieudtrykket"

skyldes, at du prøver atr sammenligne alfanumeriske værdier med numeriske i dit kriterie. Du kan få problemer, fordi du har mellemrum i dine objektnavne, men prøv denne:

DoCmd.OpenReport "Måleværktøjer stamkort rapport", acViewNormal, , "[TABELNAVN]![Værktøjs  NR] = " & Me!Værktøjs  NR & ""

det virker ikke kommer med syntax og compile fejl
hvor vil du have "[TABELNAVN]! med ?

Denne er hentet fra en af mine testdb og er afprøvet. Den er beregnet til et alfanumerisk felt:
DoCmd.OpenForm "form2", "[Tabel1]![tekst]= '" & Me!tekst & "'"

Er Værktøjsnr et numerisk felt skal du fjerne "gnyfferne":
DoCmd.OpenForm "form2", "[Tabel1]![tekst]= " & Me!tekst & ""

Prøv også med en underscore i feltnavnet således:
DoCmd.OpenForm "form2", "[Tabel1]![tekst]= '" & Me!Værktøjs_nr & "'"

Du udskifter TABELNAVN og TEKST med navnene på dine egne objekter.

just so everyone understand the problem.
In a previous question hinviv wanted to change the sub form depending on the value of a field on the main form. The works fine.
Now he wants to print a report based on the current contents of the from. In other words the sub report needs to be changed as in the form/sub form.

Another possibility is to print the form/sub form. This can be done using the following.

Me.Filter = "[Værktøjs  NR]= '" & Me![Værktøjs  NR] & "'"
Me.FilterOn = True

DoCmd.PrintOut

Me.Filter = ""
Me.FilterOn = False

A few changes will be required to the form to get it to look OK. It currently prints 4 pages per record because of the size.

For each object on the form there is a property (Display When) if you set this to Screen Only then when you print the form it doesnt get printed. If you do this for buttons etc. then you can "hide" them when the printout is done.

det virker fin mangler bare at få bagrunden til ikke at blive printet
så er det helt perfekt

bagrunden? Do you mean that it must be white?

You can alter the BackColor property for the detail section, and you will also nee to do it for the sub form

Me.Detaljesektion.BackColor = 16777215
Me.CalSubForm.Form.Detaljesektion.BackColor = 16777215

Me.Filter = "[Værktøjs  NR]= '" & Me![Værktøjs  NR] & "'"
Me.FilterOn = True

DoCmd.PrintOut

Me.Filter = ""
Me.FilterOn = False
Me.Detaljesektion.BackColor = -2147483633
Me.CalSubForm.Form.Detaljesektion.BackColor = -2147483633

Ja den skal helst være hvid
og hvis jeg bruger den sidste du har lavet bliver den kun hvid i hovede formularen og ikke i underformularen

på skærmen ser det ud til at begge fraver forsvinder men ikke på udskriften ??

ny problem hvis nu underformularen har flere poster så kommer de også med

In the code 24/04-2007 11:44:22 it seems thatthe sub form gets set to grey again just before printing, this code should help.

Me.Detaljesektion.BackColor = 16777215
Me.CalSubForm.Form.Detaljesektion.BackColor = 16777215

Me.Filter = "[Værktøjs  NR]= '" & Me![Værktøjs  NR] & "'"
Me.FilterOn = True

Me.CalSubForm.Form.Detaljesektion.BackColor = 16777215

DoCmd.PrintOut

Me.Filter = ""
Me.FilterOn = False
Me.Detaljesektion.BackColor = -2147483633
Me.CalSubForm.Form.Detaljesektion.BackColor = -2147483633

REF:24/04-2007 12:33:20
This will also be the case in a report, what else would you want it to do?

REF:24/04-2007 12:33:20
kan man får den til kun at tage den første post (i dette tilfælde for man kun brug for første post)

det er fordi hvert værktøj bliver kaliberet flere gang
men de har kun et stamkort (hvis det er til at forstå eller du kan nok godt huske det ;o))