Laitoin näin kuvaan tekstin, mutta kun sen kuvan tulostaa niin sitä ei enää näy siinä kuvassa. Miksi?
Tekstin lisäys:
Private Sub LisaaTeksti() PicCanvas.CurrentX = Label1.Left PicCanvas.CurrentY = Label1.Top PicCanvas.Print Label1.Caption End Sub
Tulostus:
Dim wid As Single Dim hgt As Single PicCanvas.ScaleHeight = 7.6 PicCanvas.ScaleWidth = 5.45 PicCanvas.ScaleMode = vbCentimeters ' Print the picture. Printer.PaintPicture PicCanvas.Picture, _ 1440, 1440 ' Get the picture's dimensions in the printer's scale ' mode. wid = ScaleX(7.6, PicCanvas.ScaleMode, _ Printer.ScaleMode) hgt = ScaleY(5.45, _ PicCanvas.ScaleMode, Printer.ScaleMode) ' Draw the box. Printer.Line (1440, 1440)-Step(wid, hgt), , B ' Finish printing. Printer.EndDoc MsgBox "Tulostetaan..."
Miten saan että se tulostaa sen niin että leveys on 5.45 cm ja korkeus 7.6 cm?
Kulma kirjoitti:
Laitoin näin kuvaan tekstin, mutta kun sen kuvan tulostaa niin sitä ei enää näy siinä kuvassa.
Lähetä tulostimelle Picture-ominaisuuden sijasta Image-ominaisuus.
Picture on se kuva, joka siihen on joskus ladattu, Image se kuva, joka siinä ko. hetkellä näkyy.
Blaze kirjoitti:
Kulma kirjoitti:
Laitoin näin kuvaan tekstin, mutta kun sen kuvan tulostaa niin sitä ei enää näy siinä kuvassa.
Lähetä tulostimelle Picture-ominaisuuden sijasta Image-ominaisuus.
Picture on se kuva, joka siihen on joskus ladattu, Image se kuva, joka siinä ko. hetkellä näkyy.
Kiitti. Nyt tulee teksti, mutta miten saan kuvan vielä oikean kokoiseksi?
Noh. Eikö kukaan vieläkään tiedä? Tein tämän topicin puoli vuotta sitten myös ja kukaan ei silloinkaan tiennyt. =(
Opettelisit itsekin etsimään. Ei tarvinnut kirjoittaa hakukoneeseen kuin PictureBox Text Size, niin selvisi, että PictureBoxilla on Font-ominaisuus aivan kuten Labelillakin.
Metabolix kirjoitti:
Opettelisit itsekin etsimään. Ei tarvinnut kirjoittaa hakukoneeseen kuin PictureBox Text Size, niin selvisi, että PictureBoxilla on Font-ominaisuus aivan kuten Labelillakin.
Hupsis saitte väärän käsityksen.
Tarkoitin että miten saan kuvan oikean kokoiseksi?
Miten saan että se tulostaa sen niin että leveys on 5.45 cm ja korkeus 7.6 cm?
Aihe on jo aika vanha, joten et voi enää vastata siihen.