Printer.Heigth = Xcm * 1/2twp
Printer.Width = Xcm * 1/2twp
(Multiplicando a medida em centímetro por meio twp - No momento, não me recordo do valor )
Usava este método até para etiquetas e a impressão termina na altura da página definida sem qualquer problema.
Boa sorte e t+