print og billeder

til det første:

Printer.FontSize = 12

til det andet: der må vi vist have sjh på banen. Det er ham der har lavet det. ;-)

du skal bruge "ijl11.dll" og JPEG.CLS

'----------------------------- Form1 -----------------------------
Dim cJPEG As New JPEG ' I topen

Private Sub Command1_Click()
  ' Her gemmer du det billede som er i "Picture1"
  cJPEG.SavePicture Picture1.Picture, "C:\jpegfile.jpg", 100
End Sub
'----------------------------- Form1 -----------------------------

Hvordan "bruger" jeg ijl11.dll?
Når jeg sætter den ind melder den ikke om fejl, men jeg kan heller ikke finde billedet...

tjacob -> Tak,læg lige et svar, så får du halvdelen

naarrj, det var så simpelt. sjh har "arbejdet mere for føden", så giv dem til ham. ;-)

Prøv sådan:

Picture1.Picture = Picture1.Image
Me.Caption = cJPEG.SavePicture(Picture1.Picture, "C:\jpegfile.jpg", 100)


hvis der er fejl vil det stå i "Me.Caption"

Tak, så kan jeg vist heller ikke være andet end fuldt ud tilfreds :)

Jeg har lige et problem i forbindelse med det...

  Picture2.Width = langde.Text + 4
  Picture2.Height = hojde.Text + 4
    sti = grundsti.Text
    filnavnARR = Split(filnavn.Text, ";")

For t = 0 To UBound(filnavnARR)
Picture1.Picture = LoadPicture(sti & filnavnARR(t)) 'Load pic
  Picture1.Picture = Picture1.Image
Me.Caption = cJPEG.SavePicture(Picture1.Picture, sti & "billeder\" & filnavnARR(t), 100)
    Call NewSize(Picture1, Picture2, langde.Text, hojde.Text) 'Resize pic
      Picture2.Picture = Picture2.Image
Me.Caption = cJPEG.SavePicture(Picture2.Picture, gem.Text & "thumb_" & filnavnARR(t), 100)
Me.Caption = "Gemt"
Next

giver et udsnit af originalbilledet som svarer til langde.text x hojde.text, billedet bliver altså ikke skaleret ned... Jeg brugte næsten den samme kode i et anden script, og der virkede det...

Prøv at se her hvordan du også kan:
http://home.get2net.dk/sjh/eksperten/219684/galleri.zip