Createfont igen...

Marker alt og tryk Ctrl P!

Altså Ctrl A og Ctrl P!

Ja ja. Så kan alt jo printes. Det skulle jo gerne gøres fra et vb program !!!

prøv med:

Printer.FontName = \"navn på font\"

Funktionen Createfont laver en helt ny font der f.eks. er roteert 45 grader.
Printer.Fontname=.... har intet med det at gøre. Desværre...

kan du så ikke printe det som et billede?

Printkode:
Husk et CommonDialog-element i formen.
Hver linie du vil printe, skal starte med \"Printer.Print\".
En linie i koden med kun \"Printer.Print\" laver et linieskift.
--------------------------------------------------------------

Dim BeginPage, EndPage, NumCopies, i
    \' Set Cancel to True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    \' Display the Print dialog box
    CommonDialog1.ShowPrinter
    \' Get user-selected values from the dialog box
    BeginPage = CommonDialog1.FromPage
    EndPage = CommonDialog1.ToPage
    NumCopies = CommonDialog1.Copies
    For i = 1 To NumCopies
        Printer.Print \' skriv printerkode her
    Printer.Enddoc   
    Next i
    Exit Sub
ErrHandler:
    \' User pressed the Cancel button
    Exit Sub

Øv. Intet af ovenstående har noget som helst med Createfont at gøre...

Jeg ved da godt hvad printer.print er...

jeg lukker spørgsmålet...