Convertir un formato a Pdf

Buenas tardes experto.
Tengo una macro que me permite escoger el tipo de impresora que necesito; en
este caso "CutePdf Write". Previamente me permite configurar las
márgenes, el tipo de hoja, orientación y demás. El tema es que necesito que
cuando escoja la impresora virtual ????para convertir a pdf, me configure el
formato como lo especifico en la macro; el problema es que cuando ejecuto la
macro se pierde la configuración y me aparece con tipo de hoja A4. Les agradecería
si me pudieran colaborar.  Debo mencionar que tengo Office 2003.
La macro que tengo es esta:
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
On Error Resume Next
Dim Izq, Der, Sup, Inf
Izq = 1.5
Der = 1.5
Sup = 1.5
Inf = 1.5
'Configuración de márgenes
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(Izq)
.RightMargin = Application.CentimetersToPoints(Der)
.TopMargin = Application.CentimetersToPoints(Sup)
.BottomMargin = Application.CentimetersToPoints(Inf)
PaperSize = xlPaperLetter
Orientation = xlPortrait
.Zoom = 65
CenterHorizontally = True
SendKeys "%A" '% equivale a la tecla "Alt" y A es por
"Archivo"
SendKeys "I" 'atajo para "Imprimir"
SendKeys "%m" 'despliega lista
Cancel = False
End With
Application.ScreenUpdating = True
End Sub
:::::::::::::::::::::Gracias por su ayuda:::::::::::