Visual Basic - Urgente - imgscan.ocx

mi problema es que no consigo escanear un A4 de modo que al imprimirlo sea en A4, de hecho el archivo que se genera tiene el documento mas peque que un A4.
Este es el codigo que uso... y si podeis decirme que coño hago mal.

frmScan.MousePointer = vbHourglass
With ImgScan1
If .ScannerAvailable Then
.OpenScanner
.ShowSetupBeforeScan = False
.GetPageTypeCompressionType BlackAndWhite1Bit
.ScanTo = FileOnly
.SetPageTypeCompressionOpts GoodDisplay, BlackAndWhite1Bit, Uncompressed, NoCompInfo
.Image = Ruta & l_NomArchivo 'App.Path & "\Imagenes\" & l_NomArchivo
If EncuentraArchivo Then
.PageOption = OverwriteAllPages
Else
.PageOption = AppendPages
End If
.FileType = TIFF
.MultiPage = True
.StartScan
.CloseScanner
End If
End With