#70 Printing problems with ContactGrid

[Anonymous]

Exported from Bugzilla, issue 4184.

--- Comment added on 12/13/02 10:11:49 AM ---
> When I use this procedure to print my contactsgrid, it print in a tiny, tiny
> font size !!!!
>
> Measurement = 100 percent
> Width, Height = 100
> Rotation = R0
> Itemtype= itContacts
>
> Does anyone know what I do wrong ?
>
> Procedure TMainForm.PrintContactsClick(Sender: TObject);
> Var
> StartDate : TDateTime;
> StartContact : Integer;
> Begin
> If VpControlLink1.Printer.PrintFormats.Count > 0 Then Begin
> VpPrintPreviewDialog1.StartDate := VpMonthView1.Date;
> VpPrintPreviewDialog1.EndDate := VpMonthView1.Date;
> VpControlLink1.Printer.CurFormat := 0;
> StartDate := Now;
> StartContact := 0;
> If VpPrintPreviewDialog1.Execute Then Begin
> If PrintDialog1.Execute Then Begin
> Printer.BeginDoc;
> VpControlLink1.Printer.CurFormat := 0;
>
> VpControlLink1.Printer.Print(Printer,VpMonthView1.Date,VpMonthView1.Date);
> Printer.EndDoc;
> End;
> End;
> End
> Else
> ShowMessage('No print format defined !!!');
> end;
>
>