Tøm felt ved print / tving indtastning

Måske - hvis det var en skabelon vil den jo være neutral

Eller

Opret en knap via Kontrolelementer
Indlæg følgende kode:

Private Sub CommandButton2_Click()
    ActiveDocument.PrintOut
    ActiveDocument.FormFields("Rulleliste6").Result = " "
End Sub

Udskriver booking-sedlen og derefter sætter en blank i den pågældende rulleliste. MEN den blanke skal tilføjes som værdi i listen inden.

#1
Havde jeg prøvet men det brokker de sig over, de vil kunne gemme med de data de har tastet (adresse mm. skal nævnes at vi godt kan have 2 forskellige betaler til samme adresse.)

#2
Mener at have prøvet det tidligere (før dette issue blev bragt op), mener at knappen kom med på udskriften - det så ikk kønt ud.
eller misforstår jeg?

Det skal helst være så bruger venligt som muligt da der er bruger der ikke er særlig pc minded.

Havde over vejet noget vb, men så kom jeg i tanke om at det kunne jeg slet ikke finde ud af, det plejer jeg at få hjælp til :D

/Rex

#1
Dokumentet kan gemmes under et entydigt navn.
(er jeg ikke med på p.t.)

#2
I stedet for knappen i dokumentet kan der anvendes andre metoder/måder.

VBA-mulighed: Indtastning i Userform - overførsel af data til dokument.

Gennem gik lige promstillingen igen :)

Et af problemerne er at dokumentet sjældent bliver lukket ned mellem bookingerne, det er oftest der at man glemmer at skifte fragt faktura modtager :(

Derfor ville det være fedt at man kunne 0'e feltet ved print.

Tror uden at vide det med sikkerhed at print ikonet er den mest ynnet metode til at printe på.

Havde oxe overvejet at oprette noget access hvor man "bare" udfyldte nogle felter (og gav mulighed for at gemme faste adresser) og så kaldte udskriften, men da der bookes fra flere forskelige maskiner - droppede jeg da da jeg ikke lige kendte nogle måder hvorpå samme access databaste kan tilgås af flere samtidig, derudover er access ikke mit bedste 8-)

/Rex

Hvis Access databasen ligger på en server, så kan flere anvemde den samtidigt. Men Access er ikke nødvendigvis løsning på den aktuelle udfordring.

Et regneark kunne gøre det, såfremt der er tale om en begrænset datamængde, hvori der skal kunne vælges. Dette skalblot ligge på serveren og være deleligt - så kan alle anvende. I regnearket kunne den nødvendige VBA-kode være lagret.

Mit bud er at I kan få en løsning, der opfylder alle Jeres krav.

Du er velkommen til at kontakte mig direkte (mail-adresse på min profil).

Tror lige at jeg tabte tråden... et regneark?

Det jeg tidligere havde tænkt på var at lave et "booking system" i access der så gav mulighed for at gemme adresser mm. men det blev droppet da jeg konstaterede at jeg langtfra have den praktiske kunnen vedr. access, nå ja også det med at databasen ikke kunne deles :(.


Det jeg så sigtede efter var "bare" at tvinge mine kollegaer til at rette det for**ndede felt med faktura regningen.

Ikke at jeg gerne ville have noget mere avanceret, med flere mulighedder, men tror sq ikk at jeg får lov til at bruge så meget som 25øre (dammn den er jo u'gået) 50øre på et sådanne projekt :'(

Det kunne ellers være federen med noget hvor man kunne trække liste over ordre nr., palle antal og sådanne noget...

/Rex

Kommer vi videre? - det kunne jo være i "små step" efter prioritet.

Kan man ikke få feltet til at "hoppe" til blank ved udskrift, via noget makro eller sådan?

Ved at hvis jeg nævner overfor min chef at jeg vil bruge penge på dette, så tæsker han mig med 2-3 våde wienerbrød... Han mener pt. at vi bruger penge nok på licenser til M$ & Citrix.

Det er oxe derfor at jeg har lagt Q.et her, fremfor at "bare" sætte vores IT afdeling på det.

/Rex

Ok - vender (måske) tilbage med et udkast...

Jeg tror at jeg har en "enkel" løsning - vender tilbage når der er lidt mere...

Forslag
- Kopier denne kode ind i ThisDocument:
- Når udskrivning rekvireres via Ctrl+P eller aktivering af Udskriv-knappen - udføres Sub UdskrivBooking.
- Heri udskrives dokumentet og rullelisten vedr.: "Fragt-Faktura sendes til.:" - sættes til "blank"
- Yderligere kontrol kunne indlægges heri


Public Sub UdskrivBooking()
    With ActiveDocument
        .PrintOut
        .FormFields("Rulleliste6").Result = " "
    End With
End Sub
Public Sub FilerUdskriv()
    UdskrivBooking
End Sub
Public Sub FilerUdskrivstandard()
    UdskrivBooking
End Sub

Federen det er jo lige det der skulle til :)

Takker mange mange gange...

Du skriver at der kunne indlægges yderlig kontrol.

er det feks. så at der inden udskrift tjekkes om fragt fak feltet er tomt.

if .FormFields("Rulleliste6").Result = " " then
msg "FEJL", "Der er ikke valgt fragt betaler"
else
.FormFields("Rulleliste6").Result = " "
    End With
End Sub
Public Sub FilerUdskriv()
    UdskrivBooking
End Sub
Public Sub FilerUdskrivstandard()
    UdskrivBooking
End Sub

eller noget der ligner (er ikke inde i vb)

/Rex

Selv tak - vender tilbage senere...

Public Sub UdskrivBooking()
    With ActiveDocument
        If .FormFields("Rulleliste6").Result = " " Then
            MsgBox ("FEJL, Der er ikke valgt fragt betaler")
        Else
            .PrintOut
            .FormFields("Rulleliste6").Result = " "
        End If
    End With
End Sub
Public Sub FilerUdskriv()
    UdskrivBooking
End Sub
Public Sub FilerUdskrivstandard()
    UdskrivBooking
End Sub

:'( Har lige prøvet på min arb. plads, der virker det ikke.

Vi har office 2007 via en citrix, mon det kan være derfor? det virkede fint hjemme på min office 2003.

Øv øv mega øv

Men igen super mange tak for hjælpen.

/Rex

Hvad sker der?

Selv tak.

ingen ting :(, ingen print, ingen ændring af rulleliste intet, nada, zip, nothing - øv øv øv
og den ikke engang kommer med så meget som en fejlmeddelelse, og alle makroer er tilladt.

/Rex

Det jeg har udnyttet er at modificere to af de indbyggede kommandoer i Word (2003): FilerUdskriv & FilerUdskrivStandard.

Det er jo muligt, at disse hedder noget andet i 2007.

I 2003:
Alt+F8
- Makroer i Word-kommandoer
-- I denne liste findes ovennævnte.

Jeg tjekker når jeg kommer på arb. så melder jeg tilbage ;)

Ok..

Hmm
De står der som makroer, når jeg trykker Alt + F8 (efter at have fjernet dokument beskyttelsen).

Det er sq ikke altid lige let at blive klog på M$ produkter :(

/Rex

Indtil jeg evt. får set på Word-2007 - kan der oprettes et felt, der kan aktivere udskrivning og blankstilling. Dette felt skal ikke udfyldes - blot aktiveres.

Har faktisk prøvet det i en tidligere version.

Hvis du sender en mail (adresse i profil) - så sender jeg en version med ovennævnte "udskrivnings-felt"