Fontstørrelse & margen på print.

Sætter lige point'ne lidt op.. Men nu er spørgsmålet et lidt andet.. Hvad er koden til at centrere det...?

/Rasmus

Det er ligemeget.. Jeg skulle ikke bruge det alligevel.

Private Sub Command1_Click()
  Printer.Mode = vbmillimeters
  Printer.Fontname = "Ariel"
  Printer.Fontsize = 10
  Printer.CurrentX = 10
  Printer.Print text1.text
  Printer.EndDoc
End Sub

Det skulle løse dit problem

Endelig en der gad at svare :D Nu har jeg så et andet spørgsmål.. Kan man få det til at se ca sådan ud?:

Til.:
    RichTextBox1.Text
    RichTextBox1.Text
    RichTextBox1.Text
               
                      Afs.:
                          Fast tekst
                          Fast tekst
                          Fast tekst

Hvis der kommer brugbare svar, "overfører" jeg nogle point til jer, via et andet spm...

Glemte at sige at "Afs.:" og den faste text skal være med Arial str. 8, og "Til.:" og RichTextBox1.text skal være med Arial str. 12.

Private Sub Command1_Click()
With Printer
  .Mode = vbmillimeters  'Her kan du også skrive vbCharacters
  .Fontname = "Ariel"    'hvis du vil sætte CurrentX i antal tegn
  .Fontsize = 12
  .CurrentX = 10
  Printer.Print "Til.:"
  .CurrentX = 15
  Printer.Print RichTextBox1.Text
  .CurrentX = 15
  Printer.Print RichTextBox1.Text
  .CurrentX = 15
  Printer.Print RichTextBox1.Text
  Printer.print ""
  .FontSize = 8
  .CurrentX = 40
  Printer.Print "Afs.:"
  .CurrentX = 45
  Printer.Print Fast tekst
  .CurrentX = 45
  Printer.Print Fast tekst
  .CurrentX = 45
  Printer.Print Fast tekst
  .EndDoc
end with
End Sub

Du burde kunne skrive .print, prøv det, men jeg har haft problemer
hvis jeg ikke har skrevet Printer.Print. Det er ligemeget med point, menfortæl hvis du kan få det til at virke med .print.

.Mode skal være ScaleMode

Sorry