Udskriv aktivt ark med custom header og footer

Udskriv aktivt ark på en side med custom specificeret header og footer.

Jeg sidder i den situation, at jeg gerne vil udskrive et ark, som ville fylde "to-sider", hvis jeg printede det normalt. Det skal jeg have presset ned på en side, hvilket jeg gør med følgende kode - samt for indsat en fodnote:

Sub Sideformatering()
    With ActiveSheet.PageSetup
        .LeftFooter = "Test"
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
End Sub

Derudover vil jeg gerne have indsat et firmalogo oppe i højre side af det udskrevne, hvilket jeg gør således:

Sub InsertPicture()

    With ActiveSheet.PageSetup.RightHeaderPicture
        .Filename = "C:\test.gif"
    End With
    ActiveSheet.PageSetup.RightHeader = "&G"

End Sub

Nu er spørgsmålet som jeg ikke kan få svar på nogen steder, hvordan ændrer jeg skrifttype og baggrundsfarve på min header og footer, samt sørger for at footeren og billedet ikke ikke bliver skaleret ned.

Som jeg forstår Excel, zoomer den blot hele arket ud, så al data er med, og printer derpå. Kan man finde den faktor den zoomer ud med, så kan man jo evt. (givet man kan ændre font størrelse) multiplicere denne med zoom effekten, og ligeledes med billed-størrelsen :)

(Det er dynamiske ark der er tale om)

Tak på forhånd :)