Print Macro W. Application.SendKeys

I was looking at Colo's website for the Application.SendKeys method, http://puremis.net/excel/code/039.shtml ,so that I can speed up a page/print setup macro that I have.

I was partially successful in setting this up, but I did notice that there was no argument number in that method for setting up the "Fit to x Pages Wide" and "y Pages tall".... I really need that functionality....

I saw something here that is supposed to get the zoomfactor : http://groups.google.com/group/micro...8d0?scoring=d& but I can't seem to incorporate it into my code so that it works.

Is there an Argument I can set up to get those?

Here is my code so far:

Sub ElecECNPrint()
Application.SendKeys "{ENTER}", False
Application.Dialogs(xlDialogPageSetup).Show _
Arg1:="", _
Arg2:="", _
Arg3:=0.25, _
Arg4:=0.2, _
Arg5:=0.42, _
Arg6:=0.39, _
Arg11:=xlPortrait, _
Arg12:=xlPaperLetter, _
Arg13:=79, _
Arg17:=600
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

I want to change Arg13:=79 to Arg13:= Zoomfactor, but I just ain't cutting it as each page is a different size and I am running this from Personal.xls ....