Fórum Como Defino o Tamanho no TPrinter? #280504

Olá amigos, estou aqui de novo, agora eu preciso definir o tamanho da folha no tprinter, como eu faço isto tem algum exemplo de como pode ser?
o edilcimar já me ajudou me enviando um codigo, ele disse q imprimia boletos do unibanco + o meu n tá imprimindo, no dele tem muito campo eu so vou imprimir os seguintes dados : ´Local de pagamento,vencimento no campo instrução vai 1º Linha Central, 2ª Linha Ano da Moto, 3ª Linha Placa, 4ª Cidade, no campo sacado vai o Nome, e o cpf na linha d baixo, e vai o valor cobrado, como eu defino o tamanho do papel ? às medidas dos boletos são : Altura 10,2 e comprimento 21 cm, so falta isto por favor me ajudem. olha so o código da impressão

Cursor := crHourGlass;
Printer.Canvas.Font.Name := ´Arial´;
Printer.BeginDoc;
Linha := 0;
Linha := Linha + 30;
With Printer.Canvas do
Begin
Font.Size := 9;
TextOut(50,Linha,´PAGAVEL EM QUALQUER BANCO ATE O VENCIMENTO´);
TextOut(650,Linha,data_v);
Linha := Linha + 76;
Linha := Linha + 37;
Linha := Linha + 62;
TextOut(50,Linha,´Central: ´ + central);
Linha := Linha + 18;
TextOut(50,Linha,´Alvara: ´ + alvara + ´ Marca: ´ + marca);
Linha := Linha + 18;
TextOut(50,Linha,´Ano da Moto: ´ + ano + ´ Modelo: ´ + modelo);
Linha := Linha + 18;
TextOut(50,Linha,´Placa: ´ + placa + ´ Chassi: ´ + chassi);
Linha := Linha + 18;
TextOut(50,Linha,´Cidade: ´ + cidade + ´ UF: ´ + uf);
Linha := Linha + 80;
Font.Size := 8;
TextOut(650,Linha,valor);
Linha := Linha + 80;
TextOut(70,Linha,nome);
Linha := Linha + 15;
TextOut(70,Linha,´CPF: ´ + cpf);
Linha := Linha + 13;
End;
Printer.EndDoc;
cursor := crDefault;