udskriv form

Man skulle kunne gøre det med denne sætning, men jeg har nu haft problemer med den.

    Dim stDocName As String
    Dim MyForm As Form

    stDocName = "minformular"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

Det var nok... her et der virker.

lad os antage din form hedder form1. ved klick på en kommandoknap command1
skal den udskrive side 1 på form2 og side 2 på form3

dette virker hos mig i access97 :

Private Sub Command1_Click()
Dim stDocName As String
    Dim MyForm As Form

    stDocName = "Form2"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut , 1, 1, acHigh
    DoCmd.SelectObject acForm, MyForm.Name, False
   
    stDocName = "Form3"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut , 1, 1, acHigh
    DoCmd.SelectObject acForm, MyForm.Name, False
end sub

sådan

hmmm. Jeg gav dig svaret, men du tog selv pointene :o<
Fedt gjort!

hi hekla>you only gave a comment :o)

hekla.
Du giver en kommentar med noget der skulle virke men tillige skriver du at det ikke helt virker efter hensigten ved dig.

Jeg laver det så det virker og giver dig en løsning.

føler du dig virkelig snydt giver jeg gerne de 15 point til dig så livet kan gå fredeligt videre...

Ja jeg føler mig snydt, for 95% af det du har brugt i "din" løsning, har du i mit svar. Det eneste du tilføjer er nogle print-options, som ikke er det der afgør om det virker eller ej.

I would too, but I am sure hnto will give you the points.

så er de her.

håber alt nu er i orden. :-)

http://www.eksperten.dk/spm/274510