Print pågældende formular

Hvis dit felt i formularen er alfanumerisk:

DoCmd.OpenReport "rapport1", acViewPreview, , "[Tabel1]![TEKST] = '" & Me!TEKST & "'"

Hvis det er numerisk:

DoCmd.OpenReport "rapport1", acViewPreview, , "[Tabel1]![TAL] = " & Me!TAL & ""

Prøv :

DoCmd.RunCommand acCmdPrintPreview

jensen > Rart at se dig igen :o)
Printer den så ikke selve formularen ud ?

så prøv nedestående kode, men det er vigtigt at du har en id af en eller anden art på din post.

DoCmd.OpenReport "rapportX", acViewNormal, "", "[idnr]=[Forms]![formularX]![IDnr]"

Så skulle du kun få den ene post ud.

VDh

mugs > selvfølgelig gør den det, men det var nu også det jeg gik ud fra var formålet...

God morgen jensen.
Jeg ser ikke noget formål med at printe selve formularen ud. Så får du jo formularens evt. grafik printet, og det bruger for meget blæk. Bortset fra at alle felter jo også printes, og det er jo ikke sikkert det er formålet.
Jeg vil til enhver tid printe posten i en rapport.
Hvor er du - på vej til djævleøen?

Er vist nået til Slagelse eller der omkring c",)

... men du har da ret ... min løsning var rent quick and dirty ...

Jensen->jeg er glad for at se, at du er tilbage :o)

Man kan rent faktisk godt udskrive selve formularen og samtidig få det til at se fornuftigt ud. Alle knapper og andet udskrift-overflødigt, kan blot få sat egenskaben "Vises = Kun på skærm". Derved kommer de ikke med ud på udskriften.
Endvidere kan man lægge særskilte overskrifter som kun vises ved udskrift ved at sætte samme egenskab til "Kun ved udskrivning".

Den grå baggrund kan man evt skifte lige før og efter udskrift.

Men alt i alt er det nok en del nemmere, at lave en ny rapport ;o)

Hej Thomas > No hard feeling c",)

det er også selve formularen den skal printe ud - HVis jeg nu står på post 2 i formularen er det post 2 den skal skrive úd og ikke både post 1 og to.. - Det skal ikke laves som en rapport

Jensen jeg kan godt bruge din løsning - men her viser den alle posterne i udskriftsform - den skal kun vise den pågældende.. Er dette muligt???

Do kan evt gøre således (det er ikke så kønt, men jeg tror ikke umiddelbart, at der er en kommando til kun at skrive én post ud):

    Dim varID As Long
    Dim rs As DAO.Recordset
    varID = Me!ID
    Me.filter = "ID = " & Me!ID
    Me.FilterOn = True
    DoCmd.RunCommand acCmdPrint
    Me.FilterOn = False
    Set rs = Me.RecordsetClone
    rs.FindFirst "ID = " & varID
    Me.Bookmark = rs.Bookmark

ID skal erstattes med navnet på din primærnøgle i tabellen

jeg dette bare ind i en komandoknap ved klik

ja...princippet er, at den først filtrerer efter den aktuelle post, hvorefter den udskriver posten. Dernæst fjernes filteret igen (og Access returnere til første post), hvorfor man er nødt til at bruge bookmarks til at finde den aktuelle post frem igen.

Private Sub Kommandoknap83_Click()
Dim varID As Long
    Dim rs As DAO.Recordset
    varID = Me!MedarbejderId
    Me.Filter = "MedarbejderId = " & Me!MedarbejderId
    Me.FilterOn = True
    DoCmd.RunCommand acCmdPrint
    Me.FilterOn = False
    Set rs = Me.RecordsetClone
    rs.FindFirst "MedarbejderId = " & varID
    Me.Bookmark = rs.Bookmark
End Sub


Ser dette rigtig ud?? - Når medarbejderID er den primærenøgle

DEn åbner printer viduet hvor man kan vælge hvor mange siderder skal udskrives og den filtere så der en post - men det er da ikke en særlig logisk måde - Måske er det ikke lige den medarbejder post jeg ønsker at udskrive - er det mig der gør det forkert??

Det ser rigtigt ud. At den åbner Printer-dialogboksen er bare DoCmd.RunCommand acCmdPrint's måde at udskrive på. Det er for at du kan vælge en anden printer end standard-printeren.
Du skulle ikke gerne kunne vælge at udkrive andre sider/poster en den ene post, som du stod på, da vi netop har filtreret den ud.

thomas kan man ikke gøre det sådan, at jeg kan få lov til at se udskrften først inden jeg siger ja tak til at udskrive - den viser nemlig ikke "PrintPreview" - Kan man smide det ind i koden??

Du kan godt prøve at skifte acCmdPrint ud med acCmdPrintPreview.
Jeg ved bare ikke om koden vil fejle, når den fortsætter koden. De efterfølgende kommandoer duer normalt ikke på en preview.

Jeg tror, at du vil opleve, at formularen bliver stående filtreret på den ene post...

Ja den giver fejl i de to sidste - det er bare lidt træls at man ikke lige kan se siden inden man skriver den ud!!

den debugger i Me.FilterOn = False
    Set rs = Me.RecordsetClone
når jeg anvender preview

Hvorfor er det, at du ikke bare lige laver en autorapport eller gemmer formularen som rapport og derved kan bruge Mugs' allerførste forslag?

Nu spørger jeg nok dum så hvad skal der stå i DoCmd.OpenReport "rapport1", acViewPreview, , "[Tabel1]![TAL] = " & Me!TAL & ""


Tabel 1 - er det min medarbejdertabel og tal er det medarbejderid

Der skal stå:

DoCmd.OpenReport "rapport1", acViewPreview, , "MedarbejderId  = " & Me!MedarbejderId

DEr er slet ingenting der kørar for mig i dag - da jeg har en postnummertabel tilkyttet så skriver den at den ikke kan låse/filtere fordi den allrede anvendes i en anden proces  -

Jeg har anvendt Private Sub Kommandoknap77_Click()
DoCmd.OpenReport "Medarbejder rapport", acViewPreview, , "[tblMedarbejder]![MedarbejderId] = " & Me!MedarbejderId & ""
End Sub

Hmm jeg ser hvad jeg kan gøre

for lige at springe et skridt tilbage, så tror jeg måske, at jeg har fundet løsningen på hvordan du udskriver formularen i stedet:

Hvis din formular f.eks. hedder frmMedarbejdere, kan koden se således ud:

Dim F as Form_frmMedarbejdere.

Private Sub Kommandoknap83_Click()
    Set F = New Form_frmMedarbejdere
    F.Visible = True
    F.filter = "MedarbejderId = " & Me!MedarbejderId
    F.FilterOn = True
    DoCmd.RunCommand acCmdPrintPreview
End sub

Bemærk at Dim F as... skal ligge øvert i modulet og alts uden for proceduren.

Hold da op for en sag dette er blever til ... sorry har lige været til møde ... Her I fundet en løsning ?

Kan man automatisk slå filter fra når den har vist siden og udskrevet? - - DEsuden ligger den sig bag formularen - er det sådan man kan lave det så denne side kommer frem foran den opridelige formulare?? Ellers virker det helt perfekt Thomas

Jep Thomas har faktisk fundet en ret god løsning -

hmm...på min kommer den forrest og den sætter slet ikke noget filter på formularen.

Det den gør, er at den åbner en ny instans af samme formular. denne nye formular bliver så filtreret og udskrivet. Den oprindelige formular bliver slet ikke rørt.

Hvordan ser din kode ud? Og hvad hedder din formular?

Måske man kan minimere formularen ved hændelsen ved bare ikke helt hvordan jeg klarer den ved vba kode..

Ok ... godt gået Thomas c",)

Option Compare Database
Dim F As Form_frmMedarbejder
Private Sub Kommandoknap77_Click()
    Set F = New Form_frmMedarbejder
    F.Visible = True
    F.Filter = "MedarbejderId = " & Me!MedarbejderId
    F.FilterOn = True
    DoCmd.RunCommand acCmdPrintPreview
End Sub

den filtere heller ikke til at starte med først når jeg lukker mit acCmdPrintPreview

Thomas måske er det fordi formularen er en pop up

ah, ja så kan du ikke smide noget foran den :o(

Den skal helst forblive som en popup - kan jeg smide en minimering ind af den??

Problemet er, at minimeringer (og maksimeringer) påvirker alle objekter.
Du kan skjule den med Me.visible = false, men hvordan finder du ud af hvornår den skal vises igen?

den skal vises igen når man lukker privew.. ned.. MEn det kan sikkert ikke lad sig gøre eller??

nej, problemet er, at du ikke har en hændelse på formularen, som kan fange hvornår en preview lukkes. Form_close vil sikkert virke, men da det reelt er 2 identiske formularer, som du har åben, så vil form_close på den ene også blive aktiveret på den anden, hvorfor der kan opstå mange andre problemer.

Okay thomas jeg takker virkelig for din hjælp;-)

jensen-> tak :o)

Jeg kender ikke din smiley c",) og kan ikke helt regne symbolikken ud!? Kan du give et hint?

En lille man med en stor næste hi hi

Maria

Lille mand ups

Bol, ja det ligner min egen, men ikke Jensen's.

Selv tak Bol...det var en sjov opgave - det lærte jeg selv noget af :o)

Det var godt Thomas


Maria

c",)  = lille mand som kigger imod venstre ...

nåå ja :O)) Jeg er jo vandt til at lægge hovedet på skrå....tsk tsk.
Alt det nymodens pjat, haha

Den er da meget sød ...

bestemt c";)

dette var en ldt frækkere udgave

c";)
C( )

*LOL*

En D-skål vender desværre forkert *s*

Hvorfor skal det være så besværligt ?
DoCmd.PrintOut acSelection  printer den aktuelle record ud fra en form.
Det eneste minus er at baggrunden har en tendens til at blive forstørret og fylde hele siden.