Jag hittade en tråd som jag tyckte täckte mitt behov:
<code>
Private Const EM_GETLINE = &HC4
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1
Private Const EM_GETLINECOUNT = &HBA

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'***********

Private Sub cmdSkriv_Click()
Dim Text As String
Dim Line As Long
Dim LineCount As Long
Dim LineIndex As Long
Dim LineLength As Long
Dim Indent As Long
LineCount = SendMessage(Text2.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&)
For Line = 0 To LineCount - 1
LineIndex = SendMessage(Text2.hwnd, EM_LINEINDEX, Line, ByVal 0&)
LineLength = SendMessage(Text2.hwnd, EM_LINELENGTH, LineIndex, ByVal 0&)
If LineLength Then
Text = Space$(LineLength)
SendMessage Text2.hwnd, EM_GETLINE, Line, ByVal Text
Printer.Print Tab(Indent); Text
Else
Printer.Print
End If
Next
End Sub
</code>
Vad som händer är att documentet lägger sig i kö, men sen så händer ingenting.
Någon som har en idé till förbättring?

Verkar som du glömt Printer.EndDoc skall stå sist i Suben

Tack SvenPon, den biten blev bra.
Men sen är det ju det med marginalerna, hur ändrar jag det.
Jag tittade lite på Pelles "PrintKurs", men...
<code>
Printer.FontName = "Arial"
Printer.FontSize = 12
Printer.FontBold = True
Printer.CurrentX = 700 '200
Printer.CurrentY = 700
Printer.Print "MuliLanguage, skriv följande svenska meningar till språk som talas i " & Trim(del)
Printer.FontSize = 8
Printer.FontBold = False
Printer.CurrentX = 1000
Printer.CurrentY = 700
</code>
Jag ville alltså ha en överskrivt (som du ser). med en viss fontstorlek, därefter så ville jag ner ett antal rader (chansar på Printer.CurrentX = 1000
Printer.CurrentY = 700) och sen skriva ut resten med teckenstorleken 8.

Två saker går åt he---te.
Jag får inget mellanrum mellan rubrik och text, samt att i rubriken får jag marginal, men inte resten.

Går detta att fixa till??

At göra en snygg Printerrutin är ett knåpgöra, men man blir så djä.. tillfredställd
när det blir en snygg utskrift.

Ta hem mitt uppskick Programarkivet:551 Segeltävlingar , där lade jag ner ganska mycket
tid och energi på jus Printerrutinen.

Jo den var ju fin, men det var tyvärr inte mycket som jag kunde använda mig av. Jag fick bort några ovälkommna radbrytningar men....

Det största problemet är att jag får inte till top och sid marginalerna. Inte ens efter att ha lus läst din kod.

Några tips?

Du skall använda
Printer.ScaleMode = 7 'Centmeter
Då har du koll på CurrentX och CurrentY i cm Obs också 10 delar
Printer.FontSize = 18
Printer.CurrentX = 2.5 :Printer.CurrentY = 1.5
Printer.Print "Rubrikrad"

Printer.FontSize = 10
Printer.Print
Printer.Print
Printer.CurrentX = 2.5
Printer.Print "Brödtext" ' testa att sätta ; eller , direkt efter "Brödtext";
Printer.Print "Mera Brödtext"
Printer.EndDoc

'Det flyger inte in nån djä... stekta sparvar i käften på en.
Har lagt ner hundratals timmar på sådana här problem, testa för helvete !!

Blir så djä.. sur på nissar som tror att man skall lösa hela deras prob och när man märker
att dom ens inte provat och analyserat de förslag man kommit med. !

Rådet blir som vanligt " Gå över till frimärkssamling", mycket enklare.

Måste reagera lite på Svens uttalande!

Det är väl ingen som tvingar dig till att svara på inlägg, men du väljer att göra det, då borde du inte ha en sådan uppblåst attityd och svära över andra personers fel och brister!

// Roger

Detta kanske är till någon hjälp?
<code>
Private Sub cmdSkriv_Click()
Dim Text As String
Dim Line As Long
Dim LineCount As Long
Dim LineIndex As Long
Dim LineLength As Long
Dim Indent As Long
Dim RowHeight As Single
Dim X AS single, Y As Single
Dim MarginLeft AS single, MarginTop As Single
RowHeight = Printer.TextHeight("")
MarginLeft = Printer.ScaleX(2.5, vbCentimeters)
MarginTop = Printer.ScaleX(1.5, vbCentimeters)

X = MarginLeft
Y = MarginTop
LineCount = SendMessage(Text2.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&)
For Line = 0 To LineCount - 1
LineIndex = SendMessage(Text2.hwnd, EM_LINEINDEX, Line, ByVal 0&)
LineLength = SendMessage(Text2.hwnd, EM_LINELENGTH, LineIndex, ByVal 0&)
If LineLength Then
Text = Space$(LineLength)
SendMessage Text2.hwnd, EM_GETLINE, Line, ByVal Text
Printer.CurrentX = X
Printer.CurrentY = Y
Printer.Print Tab(Indent); Text
End If
Y = Y + RowHeight
If Y > Printer.ScaleHeight Then
Y = MarginTop
Printer.NewPage
End If
Next
End Sub
</code>

Måste bara svara på SvenPon:s utalande.

Om du för ett ögonblick tror att det första jag gör, när jag får problem, är att skriva hit, då tror du fel.
Jag sitter alltid och försöker att lösa mina problem själv, endera via mina böcker, utskrivna koder eller internet, innan jag ställer frågorna här.

Om du hade tagit dig tid att läsa mitt inlägg, så såg du att jag hade fått ett lustigt problem, då borde du har förstått att jag hadde problem.

Om man sedan använder sig av den attityden som du har, då borde man söka hjälp, du har tydligen problem med att umgås med människor. Allt hänger inte på en fd marin officer.

Mycket besviken på dig SvenPon

Efter väldigt lång tid med testande, inköp av nya papper osv så har jag löst problemet.
Jag var tvungen att lägga det i en array, för att jag skulle få med marginalen på vänster sida.


<code>
Hela = Split(Form1.Text2.Text, vbCrLf)
Dim i As Integer
Printer.CurrentX = 2.5
For i = 0 To UBound(Hela)
Bit = Hela(i)
Printer.CurrentX = 2.5
Printer.Print Bit
Next
Printer.Print
</code>

Nu kan jag änteligen gå vidare till nästa problem.

Uhmmmmmmmmmmmmmmmmmm !

Inte underlgt jag blir irreterad , har get ett svar som är heltäckande,
så ökar du bara tempot och frågar sånt som ligger framför dig på bordet.
Ha det
Sven

Nja inte riktigt.
Jag trodde att allt var klart, men det visar sig att om arrayen är för lång, då skriver den "utanför" papperet.
Suck.
En tanke, kan man inte få in texten i en picturebox, skulle det bli lättare?

Kika på DrawText() api anropet. Finns en tråd som kan var till hjälp:

[Printer.print f&#246;r textstr&#228;ng]

Tack Andreas.
Där fick jag de uppslag jag behövde. Jag skrotade min kod (snyft) och använde den ena av dem.
När jag sedan körde en replace på vbCrl-tecken innan texten klistrades in i min textbox, så blev det kanon.
Tack alla för hjälp(gäller SvenPon också)

Roger skrev > svära över andra personers fel och brister!

Hade frågan legat i NybörjarForum hade det blivit ett annat tonläge.!