Hej!
Sitter och håller på med utskrifter, jag har en mschart som klistras in i en picturebox
se nedan. Jag får problem när jag ska skriva ut, det blir ganska bra när frmDiagram formuläret är maximerat eftersom editcopy klipper ut mscharten i den storlek den befann sig i för tillfället och jag har satt x,y till resp. 296,209 se nedan. Men om jag har en annan storlek på fönstret än maximerat blir det inte bra, allting blir större det blir sämre kvalitet på utskriften eftersom jag har angett utskrifts storleken nedan.
Finns det nåt sätt att kringå detta, jag har testa lite med scale metoden men jag har inte kommit underfund med hur det funkar riktigt. Ska man använda vbCFBitmap
eller vbCFMetafile i Clipboard.GetData()? Vore tacksam för hjälp /Mats


<code>
frmDiagram!MSChart1.EditCopy
Set PicGraph = Clipboard.GetData()
frmDiagram!Picture1.Picture = PicGraph
Printer.ScaleMode = 6 millimeter
Printer.PaintPicture PicGraph, 1, 3, 296, 209
Printer.EndDoc
Clipboard.Clear
Unload Me
</code>

Använd vbCFMetafile eftersom den är vektorbaserad och därmed skalbar.
<code>
frmDiagram.MSChart1.EditCopy
Set PicGraph = Clipboard.GetData(vbCFMetafile)
frmDiagram.Picture1.Picture = PicGraph
Printer.ScaleMode = 6 millimeter
Printer.PaintPicture PicGraph, 1, 3, 296, 209
Printer.EndDoc
Clipboard.Clear
Unload Me
</code>