Printerkoder i Excel 2000(Engelsk)

Hvordan ser denne printerkode fra Canon ud ?
fd@win-consult.com

Du kan sandynligvis gøre det med disse makroer, men det kommer an på om det er muligt i printeropsætningen at vælge dobbeltsidet print.
I Kodemodulet ThisWorkbook indsætter du disse to makroer.

Private Sub Workbook_Activate()
Call Dobbeltprint
End Sub

Private Sub Workbook_Deactivate()
Call SlutDobbelprint
End Sub

I et almindelingt kodemodul indsætter du disse tre makroer
Sub Dobbeltprint()
Set x = CommandBars("standard").Controls(5)
x.OnAction = "Dobbelt"
End Sub

Sub SlutDobbelprint()
Set x = CommandBars("standard").Controls(5)
x.OnAction = ""
End Sub

Sub Dobbelt()
SendKeys "%FU %E  {enter} {enter}"
End Sub

Det du nu skal have fundet ud af er hvilken tastekommando (genvejstast)der skal til for at sætte printeren til at lave dobbeltsidet print. Dette sætte du ind ved sendkeys mellem %E og {enter}
Sendkeys udfører så menuen "Filer / Udskriv / Egenskaber og så det du indsætter som kommandoen for Dobbeltsidet print. (Alt-F, U, Alt-E  + dit eget)

Når denne mappe er aktiveret skrives så dobbelsidet ellers som normalt.

Sorry glemte lige at det var engelsk
Så skal sendkeys nok være
Sendkeys "%FP %P {enter} {enter}
(Alt-F, P, Alt-P  (File, Print, properties))

Jeg kunne da forøvrigt også tænke mig at se canons printerkode, hvis det er noget man kan blive klogere af.
Tommybak@netscape.net

Har lige åbnet min engelske version og set at tasterne til properties er Alt-r
Bemærk også lige at
Set x = CommandBars("standard").Controls(5)
refererer til 5. knap fra venstre i standard menu-baren, som i mit tilfælde er printknappen.

Sendkeys "%FP %r {enter} {enter}
(Alt-F, P, Alt-r  (File, Print, properties))

NPJE > Har problemet løst sig ??

Jeg må indrømme, at jeg venter på svar fra ham, der skal bruge det. Jeg har rykket ham, men han har ikke fået kigget på det endnu

Idet jeg ikke har hørt fra ham, der stillede mig spørgsmålet, har jeg nu valgt at give dig pointene

Tak for det :-)
Vender han tilbage skal vi nok løse det