[Microsoft Project 2007] VBA Print probleem

[AnderNeo]

Goedemiddag,

Ik zit al een hele poos te rotzooien met het printen van een rapport vanuit Project.
Wat ik voor elkaar wil krijgen is:
- Selecteren van een view
- Een pop-up voor het selecteren van een begin en eind-datum van het rapport
- Groeperen
- Zoomen zodat het allemaal goed op de pagina komt
- Het hele gevalletje printen


Nu lukt me dit allemaal prima, maar ik zit met het probleem dat er niet geprint wordt wat ik wil.
Het probleem zit hem in de optie die in het print-dialoog te vinden is:
"Timescale"
Deze blijft namelijk altijd op de waarde staan waar hij eerst op stond, terwijl deze eigenlijk mee zou moeten gaan met de selectie (eerste begin-datum en laatste eind-datum).
Kan iemand mij hier bij assisteren?

De volgende code gebruik ik nu:

VBScript:

Sub PrintWeekplanning()
    
    FilePrintSetup ("BULLZIP")
    ViewApply Name:="Gantt Chart"
    FilterEdit Name:="Week planning", TaskFilter:=True, Create:=True, _
    OverwriteExisting:=True, FieldName:="Finish", Test:="is greater than or equal to", _
    Value:="""Selecter de start datum (maandag):""?", ShowInMenu:=False, _
    ShowSummaryTasks:=False, FilterEdit Name:="Week planning", TaskFilter:=True, _
    FieldName:="", NewFieldName:="Start", Test:="is less than or equal to", _
    Value:="""En de eind datum (zaterdag):""?", Operation:="And", ShowSummaryTasks:=False
    FilterApply "Week Planning"
    GroupApply Name:="Tasks"
    EditGoTo Date:=Now
    ZoomTimescale Duration:="2w"
    TimescaleEdit MajorUnits:=3, MinorUnits:=4, MajorLabel:=14, MinorLabel:=18, _
    MajorCount:=1, MinorCount:=1, MinorTicks:=True, Separator:=True, MajorUseFY:=True, _ 
    MinorUseFY:=True, TierCount:=2
    SendKeys "{ENTER}"
    FilePrint
    MsgBox ("De weekplanning wordt geprint")
    
End Sub

Het dialoog-boxje met links onderin de timescale optie:



Alvast bedankt!

[ Voor 26% gewijzigd door AnderNeo op 04-02-2010 13:37 ]

[AnderNeo]

Ik kom er nog steeds niet uit