title image


Smiley Re: Bilder in VB drucken
Eine mögliche Lösung:Sub BildDrucken(Bild As PictureBox, X!, Y!, Proz%)Dim nX!, nY!Dim oldScaleMode oldScaleMode = Printer.ScaleMode Bild.ScaleMode = vbMillimeters '(oder: vbPixels) Printer.ScaleMode = vbMillimeters '(oder: vbPixels) nX = (Bild.ScaleWidth / 100) * Proz nY = (Bild.ScaleHeight / 100) * Proz Bild.Picture = Bild.Image Printer.PaintPicture Bild.Picture, X, Y, nX, nY Printer.ScaleMode = vbCharacters Printer.ScaleMode = oldScaleModePrinter.EndDocEnd SubAufruf des Programmes mit BildDrucken X, Y, ProzX ...... Abstand vom linken Druckrand in Millimeter (Pixel)Y ...... Abstand vom oberen Druckrand in Millimeter (Pixel)Proz ... Prozent der OriginalgrößeGraFrigrath.fritz@EUnet.at

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: