udskrivning af tekst

Hej.

En primitiv begyndelse (kender ikke anden måde)

Printer.Print                          'vækker printeren af dvale
Printer.fontName = "Times New Roman"    'sætter skriftsnit
Printer.FontSize = 12                  'sætter skriftstørrelse
Printer.Print ""                        'skriver tom linie
Printer.print tab(16); text1.text      'skriver indholdet med margin i 1. linie
Printer.EndDoc                          'starter udskrift

Men du vil få en tekst der deler ord dér hvor printerens højre margin står

Dette kan forfines en del, men lad høre om du kommer videre.

M.v.h.  Jørn

Prøv at kikke lidt på CommonDialog-kontrollen :o)

Prøv at lav et nyt projekt. Put en textbox (Text1), en CommandButton (Command1) og en CommonDialog (CommonDialog1)

Commondialog skal du måske tilføje din tools-palette, hvis den ikke er der i forvejen. Tryk Ctrl+T, og afkryds Microsoft Commondialog

Kopier følgende kode, og du har en - meget simpet - teksteditor, der kan udskrive. Herefter kan du jo bare tilpasse koden til dit eget project :o)

Option Explicit

Private Sub Command1_Click()
  Dim i As Integer
  Dim StartSide As Integer
  Dim SlutSide As Integer
 
  'Sætter diverse indstillinger for print-dailogboxen
  CommonDialog1.PrinterDefault = False
  CommonDialog1.CancelError = True
  CommonDialog1.DialogTitle = "Udskriv tekst"
  CommonDialog1.FontName = "MS Sans Serif"
  Printer.ScaleMode = 6 'millimeter
  CommonDialog1.Flags = cdlPDHidePrintToFile Or cdlPDNoSelection
  On Error GoTo Fejl
 
  'Viser Printdialogboxen
  CommonDialog1.ShowPrinter
     
  'Udskriver
  For i = 1 To CommonDialog1.Copies
    Printer.ScaleMode = 1 'twips
    Printer.CurrentX = 120
    Printer.CurrentY = 50
    Printer.Print "Udskriftsdato: " & Date
    Printer.CurrentX = 40
    Printer.CurrentY = 100
    Printer.Print Text1.Text
  Next i
  MsgBox "Udskrift slut"
  Exit Sub
Fejl:
  If Err.Number = 32755 Then Exit Sub '32755=Cancle
  MsgBox "En fejl opstod under udskrift (fejlnr. " & Err.Number & ")", vbCritical + vbOKOnly, "Fejl"
End Sub

Private Sub Form_Load()
  Command1.Caption = "Udskriv"
  Text1.MaxLength = 150
  Text1.Text = "Skriv den tekst der skal udskrives her"
End Sub

Takker :o)

Hej.

Når nu Martin skriver pænt tak, må jeg jo også hellere.

M.v.h.  Jørn