Printer.Orientation := poLandscape;
Printer.BeginDoc;
Printer.Canvas.Pen.Width := 5;
Printer.Canvas.Font.Name := 'Times New Roman';
Printer.Canvas.Font.Size := 12;
Linha := 20;
Coluna:= 20;
Tamanho := Printer.Canvas.TextWidth('a');
Fdata.Query_print.First;
while not fdata.Query_print.Eof do
begin
if Linha = 20 then
begin
Coluna := 20;
Printer.Canvas.TextOut(20,Linha,'Horario');
Linha := Linha - Printer.Canvas.Font.Height + 25 ;
Printer.Canvas.TextOut(Coluna,Linha,'Nombre');
Coluna:= Coluna + (Tamanho * 30 );
Printer.Canvas.TextOut(Coluna,Linha,'RUT');
Coluna:= Coluna + (Tamanho * 20);
Printer.Canvas.TextOut(Coluna,Linha,'1');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'2');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'2');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'3');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'4');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'5');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'6');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'7');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'8');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'9');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'10');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'11');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'12');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'13');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'14');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'15');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'16');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'17');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'18');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'19');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'20');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'21');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'22');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'23');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'24');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'25');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'26');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'27');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'28');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'29');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'30');
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,'31');
Coluna:= Coluna + (Tamanho * 3);
Linha := Linha - Printer.Canvas.Font.Height + 30 ;
end;
Coluna := 20 ;
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('nombre').AsString);
Coluna:= Coluna + (Tamanho * 30 );
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('rut_t').AsString);
Coluna:= Coluna + (Tamanho * 20);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d1').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d2').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d3').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d4').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d5').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d6').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d7').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d8').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d9').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d10').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d11').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d12').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d13').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d14').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d15').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d16').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d17').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d18').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d19').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d20').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d21').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d22').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d23').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d24').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d25').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d26').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d27').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d28').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d29').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d30').AsString);
Coluna:= Coluna + (Tamanho * 3);
Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d31').AsString);
Coluna:= Coluna + (Tamanho * 3);
Linha := Linha - Printer.Canvas.Font.Height + 5 ;
Fdata.Query_print.Next;
if Linha > Printer.PageHeight-20 then
Begin
Printer.NewPage;
Linha := 20;
end;