Impresión desde Visual Basic 6.0

Posiciono la cabecera de impresión:
Printer.CurrentX=21
Printer.CurrentY=16
Con las posiciones anteriores quiero imprimir desde la bandeja de entrada para sobres de mi impresora.
Pero aun imprime muy desajustado. Inicia en un punto y se prolonga hasta la parte superior de un pedazo de papel que estoy usando como prueba. (El tamaño es más o menos el tamaño de un cheque)
Las propiedades que investigué y no se como emplear, son las siguientes:
.PaperSize = vbPRPSEnvDL
.PaperBin = vbPRBNEnvelope 'Para sobres del alimentador de sobres.
Cuando imprimo el error es el siguiente:
"ERROR DE TAMAÑO DE PAPEL.
EL TAMAÑO DE PAPEL ESPECIFICADO DIFIERE DEL QUE SE ENCUENTRA EN LA BANDEJA DE ENTRADA."
La impresora es un Hp Deskjet 840C
'*********************Lineas de Código************************
Dim ptr As Printer
Dim i As Integer, a As Integer
Set ptr = Printer
Screen.MousePointer = vbHourglass
With ptr
.Orientation = vbPRORLandscape 'Horizontal
.ScaleMode = vbCentimeters
.Font.Name = "MS Reference Sans Serif"
.Font.Size = 8
.CurrentX = 21
.CurrentY = 16
.PaperSize = vbPRPSEnvDL
.PaperBin = vbPRBNEnvelope 'Para sobres del alimentador de sobres.
End With
Saludos.