Impressão de calendário com Delphi

Bem, me deparei com algo difícil de se pensar em fazer sem ajuda...Preciso imprimir um calendário (literalmente um calendário) em cada pagina contendo 6 meses, estou desenhando o calendário no Quick report, mas isso é braçal demais....alguém saberia algum método mais fácil para executar esta tarefa?