Bild in Tabelle...wir nur ein Wert reingeschrieben
17.10.2005 09:36:30
Peter
mit untenstehendem Code will ich Urkunden für meinen Verein ausdrucken; die entsprechenden Füllwerte hole ich aus der Tabelle "DBUrkundeGrundkurs". Es klappt auch excellent bis auf eines:
Statt das gewünschte Photo (siehe Zeile: Range("UrkGrundkurs!BeurteilungB") = LoadPicture...usw)in den Bereich zu laden und zu drucken, schreibt er lediglich eine Ziffernfolge rein.....Wer weiss da Abhilfe?
Sub UrkGrundkursDruck()
Application.ScreenUpdating = False
Dim pct As Picture
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("DBUrkundeGrundkurs")
iRow = 1
Do Until IsEmpty(wks.Cells(iRow, 1))
Range("UrkGrundkurs!NameB") = wks.Cells(iRow, 2) & " " & wks.Cells(iRow, 1)
Range("UrkGrundkurs!HundB") = wks.Cells(iRow, 3)
Range("UrkGrundkurs!VereinB") = "von " & wks.Cells(iRow, 5) & " bis " & wks.Cells(iRow, 6)
If wks.Cells(iRow, 7).Value = "W" Then
Range("UrkGrundkurs!PunkteB") = "Der Hundeführerin"
Else: Range("UrkGrundkurs!PunkteB") = "Der Hundeführer"
End If
Range("UrkGrundkurs!BeurteilungB") = LoadPicture("c:\UrkundenManager\Bilder\" & wks.Cells(iRow, 4))
Range("UrkGrundkurs!DatumB") = "Schwaig" & ", den " & Date
'Sheets("UrkGrundkurs").PageSetup.PrintQuality = 1200
Sheets("UrkGrundkurs").PrintOut Copies:=1
iRow = iRow + 1
Loop
Application.ScreenUpdating = True
End Sub
Vielen Dank für Eure Mühe
Peter S.