[Excel 2007] print macro Excel 03 --> 07

[sjolmers]

Na migratie van office 2003 naar office 2007 doen de Macro's in een excel bestand niets meer.

Ik probeer om een pagina 2x af te drukken op 2 verschillende papier lades (1x op briefhoofd (=lade 3) en 1x op blanco papier (=lade 2)
In Excel 2003 zag mijn makro er als volgt uit:

code:

Sub print_lade2+3()
'
    Application.ActivePrinter = "Lexmark Optra S 1855 op LPT1:"
    SendKeys "^p %E {DOWN}{PGUP}{DOWN}{DOWN}{DOWN}{DOWN}~~"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'
    Application.ActivePrinter = "Lexmark Optra S 1855 op LPT1:"
    SendKeys "^p %E {DOWN}{PGUP}{DOWN}{DOWN}{DOWN}~~"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Het probleem is, als ik deze makro uitvoer wordt er 2x op de standaard (blanco) papierlade uitgeprint.

Ik heb geprobeerd om een nieuwe makro te maken en op te nemen echter krijg ik een heel(!) andere code:
het print commando ziet er als volgt uit:

code:

Sub printen()
'
' printen Macro
'
'
    Application.ActivePrinter = "Lexmark Optra S 1855 op LPT1:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

Hoe moet ik deze makro herschrijven?

[Verwijderd]

het afdrukdialoogvenster zal niet exact overeenstemmen, waardoor de verstuurde toetsaanslagen niet de juiste lade instellen. je beschikt over 3 opties:
- toetsaanslagen (het sendkeys gedeelte uit de eerste macro) aanpassen aan de nieuwe afdrukdialoog.
- de XLM macro code (executeexcel4macro) zet de lade op manueel (=2), weglaten of waarde 1 is de cassette)
PRINT(range_num, from, to, copies, draft, preview, print_what, color, feed, quality, y_resolution, selection)
feed=papierlade
mogelijkerwijze kan je hiermee afdrukken zoals gewenst
- de windows api aanspreken om de lade in te stellen (betrouwbaarder, maar veel complexer)

[sjolmers]

Bednakt voor de uitleg van de print macro in excel 2007. Echter kan ik, volgens documentatie op de MS site, alleen kiezen uit Feed = 1 of Feed = 2 (handmatige dan wel papierbak invoer) en niet lade 1, 2, 3 of 4 zoals mijn printer heeft en ik zou willen.

Ikz al eens in de Windows Api duiken, maar geloof niet dat ik dit kan....

[Verwijderd]

ik herinner me vaag dat vanaf office 2007 de sendkeys-methode niet langer functioneert. is dat toch niet het geval, dan kan je misschien beter proberen de toetssequentie van de eerste macro (SendKeys "^p %E {DOWN}{PGUP}{DOWN}{DOWN}{DOWN}~~") aan te passen.

mocht dat geen soelaas brengen, dan kunnen we de api-mogelijkheid aanspreken.

[pedorus]

In Word is dit simpeler, maar volgens mij is het hier iemand gelukt in Excel.