>>617
Ａ案
１．もう一つ，裏に同サイズのピクチャ(p2)を用意する（Vis=False，AutoRedraw=True）
２．さらに，テキストのコピー用にピクチャ(ptxt)を用意する（Vis=False，AutoRedraw=True）
ptxt.FontName = text1.FontName
ptxt.FontSize = text1.FontSize
ptxt.Print text1.Text
p2.Picture = p1.Image
p2.PaintPicture ptxt.Image, text1.Left, text1.Top
Printer.PaintPicture p2.Image
Printer.EndDoc
３．ボックスの境界線とかが居るならそれは自分で書く。

Ｂ案
１．ＡＰＩ，GetWindowDCとBitBldを定義
BitBlt p2.hDC, 0, 0, 100, 100, GetWindowDC(text1.hwnd), 0, 0, &HCC0020
p2.Refresh