Få et program til at udskrive

make that 100 point.
Jeg har VIRKELIG brug for at få det her til at virke

prøv at downloade filen her:

http://hjem.get2net.dk/sjh/eksperten/frmPrint.Frm

Husk at installere en printer. :-)

det ser jo SMUKT ud :D......
jeg kan dog stadig ikke få det til at virke... men jeg tror det er MIN printer det er galt med..

der er dog lige en ting til..... er det muligt få hver linie skrevet ud i hver deres fave???

det skulle jeg da mene \"Printer.ForeColor = vbRed\" har ikke prøvet med tekst kun med billede.

Det må jeg jo så bare brøve mig lidt frem med :)

imens kan du jo nyde dine velfortjente point :)

Jeg skulle da lige prøve med farve. :-)

Private Sub Form_Load()
Printer.ScaleMode = vbCentimeters
Printer.FontTransparent = True
Printer.FontName = \"Arial Black\"
Printer.FontSize = 20

  Printer.CurrentX = 0 \'left
  Printer.CurrentY = 0 \'right
 
  Printer.ForeColor = vbRed \'set skrift til rød
  Printer.Print \"<--- Rød --->\"
 
  Printer.ForeColor = vbGreen \'set skrift til grøn
  Printer.Print \"<--- Grøn --->\"
 
  Printer.ForeColor = vbYellow \'set skrift til gul
  Printer.Print \"<--- Gul --->\"
 
  Printer.ForeColor = vbBlue \'set skrift til blå
  Printer.Print \"<--- Blå --->\"
 
  Printer.ForeColor = vbBlack \'set skrift til sort
  Printer.Print \"<--- Sort --->\"

Printer.EndDoc
End Sub

Tak for point :-)

nååå... det er sådan det skal gøres :)  skal man så bare putte det text der skal udskrives i en farve ind imellem??

ja, men det er kun en linje der bliver den farve man har valgt, ellers skal man bruge .CurrentX og .CurrentY til at flytte teksten op på samme linje igen.

<--- Rød --->  linje1
<--- Grøn ---> linje2
<--- Gul --->  linje3
<--- Blå --->  linje4
<--- Sort ---> linje5

oki takker :)

hhmmmmm..... den sidste ting jeg mangler er sådan set bare at få texten centreret på parpiret ellers er ALT bare perfekt :)

centrer teksten. :-)

Private Sub Form_Load()
Dim strText As String
Dim lWidth As Long
 
  strText = \"Center Text. :-)\" \'Tekst
 
  lWidth = Format((Printer.TextWidth(strText)) / 2, \"0\") \'Tekst lengte
 
  Printer.ScaleMode = vbTwips
 
  Printer.CurrentY = 0
  Printer.CurrentX = (Printer.ScaleWidth / 2) - lWidth \'Center tekst
 
  Printer.Print strText \'Print strText
 
  Printer.EndDoc
End Sub

hmmmm.... det vil BARE ikke virke.....
det her er koden jeg bruger

Public Sub prnDemo(objModtager As Object)
  prnBegynd objModtager, \"50\" \'Zoom 25%

  \'objModtager.CurrentX = 0 \'left
  \'objModtager.CurrentY = 0 \'right
  objModtager.FontName = \"Times New Roman\"
 
 
 
  lWidth = Format((Printer.TextWidth(strText)) / 2, \"0\") \'Tekst lengte
 
  Printer.ScaleMode = vbTwips
 
  Printer.CurrentY = 0
  objModtager.CurrentX = (Printer.ScaleWidth / 2) - lWidth \'Center tekst
 
 
 
 
  Printer.ForeColor = vbBlue \'set skrift til rød
  objModtager.FontSize = \"5\" * Ratio
  objModtager.Print vbCrLf
 
  objModtager.FontSize = \"60\" * Ratio
  objModtager.Print \"Region 1\"
  objModtager.FontSize = \"10\" * Ratio
  objModtager.Print vbCrLf
  objModtager.FontSize = \"20\" * Ratio
  \'objModtager.Print Text4.Text
  objModtager.FontSize = \"10\" * Ratio
  objModtager.Print vbCrLf
  objModtager.Print vbCrLf
 
  Printer.ForeColor = vbRed \'set skrift til rød
 
 
 
  objModtager.FontSize = \"60\" * Ratio
  \'objModtager.Print \"Region 2\"
  objModtager.FontSize = \"10\" * Ratio
  objModtager.Print vbCrLf
  objModtager.FontSize = \"20\" * Ratio
  \'objModtager.Print Text5.Text
  objModtager.FontSize = \"10\" * Ratio
  objModtager.Print vbCrLf
  objModtager.Print vbCrLf
 
  Printer.ForeColor = vbGreen \'set skrift til grøn
 
 
 
  objModtager.FontSize = \"60\" * Ratio
  \'objModtager.Print \"Region 3\"
  objModtager.FontSize = \"10\" * Ratio
  objModtager.Print vbCrLf
  objModtager.FontSize = \"20\" * Ratio
  \'objModtager.Print Text6.Text
  objModtager.FontSize = \"10\" * Ratio
  objModtager.Print vbCrLf
  objModtager.Print vbCrLf

  prnSlut objModtager
End Sub

\'Prøv den sådan.

Option Explicit

Public Sub PrintCenter(Printer As Object, strText As String)
Dim lWidth As Long
  lWidth = Format((Printer.TextWidth(strText)) / 2, \"0\") \'Tekst lengte
  Printer.CurrentX = (Printer.ScaleWidth / 2) - lWidth \'Center tekst
  Printer.Print strText \'Print strText
End Sub

Private Sub Command1_Click()
  Printer.ScaleMode = vbTwips \'<<--- må ikke være \"vbCentimeters\"
  Printer.CurrentX = 0 \'left
  Printer.CurrentY = 0 \'right
  Printer.FontName = \"Times New Roman\"
  Printer.FontTransparent = True
 
  Printer.ForeColor = vbBlue \'set skrift til rød
  Printer.FontSize = 5
  Printer.Print vbCrLf
 
  Printer.FontSize = 60
  PrintCenter Printer, \"Region 1\" \'Print center
  Printer.FontSize = 10
  Printer.Print vbCrLf
  Printer.FontSize = 20
  Printer.Print \"Text4.Text\"
  Printer.FontSize = 10
  Printer.Print vbCrLf
  Printer.Print vbCrLf
 
  Printer.ForeColor = vbRed \'set skrift til rød

  Printer.FontSize = 60
  PrintCenter Printer, \"Region 2\" \'Print center
  Printer.FontSize = 10
  Printer.Print vbCrLf
  Printer.FontSize = 20
  Printer.Print \"Text5.Text\"
  Printer.FontSize = 10
  Printer.Print vbCrLf
  Printer.Print vbCrLf
 
  Printer.ForeColor = vbGreen \'set skrift til grøn

  Printer.FontSize = 60
  PrintCenter Printer, \"Region 3\" \'Print center
  Printer.FontSize = 10
  Printer.Print vbCrLf
  Printer.FontSize = 20
  Printer.Print \"Text6.Text\"
  Printer.FontSize = 10
  Printer.Print vbCrLf
  Printer.Print vbCrLf

  Printer.EndDoc
End Sub

hmmmm..... NU egynder det at ligne noget :)

men når jeg skal ha den til at skrive text box\'ene ud opføre den sig højest besynderligt. den centrer fint nok den FØRSTE linie i text boxen men resten ryger stadig ud i siden?????