On Error GoTo Fin2 bb = 0 For i = 0 To gr.Cols - 1 bb = bb + gr.ColWidth(i) Next i For i = 0 To Int((gr.RowHeight(1) * gr.Rows) / Printer.ScaleHeight) For j = 0 To Int(bb / Printer.ScaleWidth) Printer.PaintPicture gr.Picture, 0 - (j * Printer.ScaleWidth), 0 - (i * Printer.ScaleHeight) Printer.NewPage Next j Next i Fin2: Printer.EndDoc
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question