Håller på att trixa en del med PictureBox och utskrifter.
Har fått kläm på ur man skriver ut bilder

<code>
Printer.ScaleMode = 6
Printer.ScaleLeft = -30
Printer.ScaleTop = -10
Printer.PaintPicture Picture1.Picture, 0, 0, 140, 115
Printer.ScaleLeft = 0
Printer.ScaleTop = 0
Printer.EndDoc
</code>

Men hur skall man få med textet i utskriften som lagts till enligt nedan?

<code>Picture1.Print Text1.Text </code>

När jag skriver ut kommer ju bara bilden med. Vad gör jag för fel?

tack på förhand

Hej
Förmodar att Text1 ligger inbäddad i Picture1. Testa experiment.

Printer.ScaleMode = 7 'cm
Printer.PaintPicture Picture1.Picture, 0, 0, 14, 11.5
Printer.CurrentX = 2 :Printer.CurrentY = 10
Printer.FontSize = 10
Printer.FontBold = True
Printer.Print Text1.Text
Printer.EndDoc

Vad händer ???

Nej Text1 ligger inte inbäddat i pictureboxen!
Jag har ju först gjort så här:

<code>Picture1.Print Text1.Text</code>

text1.text skulle ju lika gärna kunna vara ett Recordset eller något.
Gör ett program för utskrift av egna cd-labels så "texten" som
är i text1 eller i ett recordset skall hamna i Pictureboxen för att sedan
skrivas ut gemensamt.
Här visas mitt alternativ till text1.text:

<code>Picture1.Print rst("ArtistNamn") & " " & rst("ArtistLat") & " -- " & rst("LatTid")</code>

Hänger ni med?? =)

Igen
Då är det väl inga problem
Printer.Print Text1.Text på lämpligt CurrentX , CurrentY.

Nej text1 kommer inte att finnas med!
Ersätts med ett recordset som skrivs i pictureboxen.

Sluta svamla, har du provat enl de råd du får.
Placera utskriften på de x,y du vill.Använd de rs du angiver
Printer.Print rst("ArtistNamn") , rst("ArtistLat") ; -- ; rst("LatTid")
DVS du skall inte använda Picture.Print

Kolla också Tab(siffra mellan 1- 100) som seperatorer mellan rs

; och , är också seperatorer vid Print.
Prova nu dessa rader och kolla vad som händer.
Printer.CurrentX = 2 :Printer.CurrentY = 10
Printer.Print;Tab(4); rst("ArtistNamn") , rst("ArtistLat") ; -- ; rst("LatTid")

Ditt exempel fungerar fint.
Men det jag är ute efter är att i pictureboxen visa typ en förhandsgranskning av det man gjort innan utskrift sker.
Då måste ju text eller rs ligga med i pictureboxen.

i utskrift på pappret vill jag att det skall se ut som i pictureboxen med text och allt.

// Jocke

Beträffand förhandsgranska så kom Stefan Bergh med ett
kanontips för ett tag sedan [Skriva ut och trasig skrivare]

http://www.pdf995.com är adressen

Du måste givetvis skilja på när du skriver till Printer och till PictureBoxen
Dvs Skriv det du skall i Picture1.Print i en rutin,

Picture1.Print;Tab(4); rst("ArtistNamn") , rst("ArtistLat") ; -- ; rst("LatTid")

därefter skriver du ut enl Printer.Print i en annan rutin.
Dvs du kan skriva med samma teknik antinge till Picture Form eller Printer
jag menar med ; , Tab(10) siffran i Tab, är interval på bredden
av den Font du valt ex.Picture1Print;Tab(4);"Sven";Tab(9);"Persson"
9 består av 4 + 4 + 1 de 4 första 4 i Sven 1 mellanslag = position

Gör först så du blir nöjd med Picture sedan
Printer.PaintPicture Picture1.Picture, 0, 0, 140, 115 .

Printer.ScaleMode = 6
Printer.ScaleLeft = -30
Printer.ScaleTop = -10

Picture1.Picture=Picture1.Image ' kanske löser ditt problem?

Printer.PaintPicture Picture1.Picture, 0, 0, 140, 115
Printer.ScaleLeft = 0
Printer.ScaleTop = 0
Printer.EndDoc

har nu fått löst mina problem för tillfället.
Kan tyvärr inte alls rekommendera pdf995.
Riktigt dåligt, hade ju varit ok med "lite" reklam men inte den nedlusningen som det blir idag. iofs är det ju gratis. Finns andra sätt att lösa pdf-utskrifter på!