Hej....är så att jag håller på att utveckla ett program där man skriver ut biljetter på.

Nu är det så att jag har lite problem med skrivaren som är med i detta projekt. Skriver jag ut ifrån tex ifrån Word eller Anteckningar så fungerar skrivaren, men när jag skriver ut ifrån mitt program så fungerar den, men den skriver ut konstiga tecken, inte alls det som jag vill att den skall skriva ut. Någon som har något förslag? Koden som följer är det som gäller,

Private Sub Command1_Click()
Printer.CurrentX = 200
Printer.CurrentY = 300
Printer.Print "SE 02-03"
Printer.CurrentX = 400
Printer.CurrentY = 600
'skriver ut texten ifrån texbox till skrivare
Printer.Print Text1.Text; " "; Text2.Text; " "; Text6.Text
Printer.EndDoc

Tillläggas att jag är relativt ny på VB.

Hej
Testa detta.Testa även min käpphäst sätt
Printer.ScaleMode = 7 ' centimeter
Nu kan du skriva Current X och Y i cm lättare att planera
med hjälp av linjal på det skrivpapper du använder.

Private Sub Command1_Click()
Printer.FontName = "Arial"
Printer.FontSize = 10
Printer.FontBold = True
'Ändra efter eget önskemål, berätta gärna hur det gick
'Obs du kan ändra tex FontSize mm. igen på någon rad här under
'tex efter SE 02 - 03

Printer.CurretX = 200
Printer.CurrentY = 300
Printer.Print "SE 02-03"
Printer.CurrentX = 400
Printer.CurrentY = 600
'skriver ut texten ifrån texbox till skrivare
Printer.Print Text1.Text; " "; Text2.Text; " "; Text6.Text
Printer.EndDoc

mvh
Sven

Tack Sven.

Detta fungerar ju PERFEKT. Jag undrar om någon vet kanske om man kan ställa i vilken papperstorlek jag har genom någon kod i VB, pappret jag använder är 15*7 cm, liksom om man kan lägga in någon kod som gör att efter skrivaren är klar att den kastar upp pappret någon radmatning så man kan riva av det och sedan efter någon sekund går tillbaka igen till sitt ursprungsläge. Tilläggas skall göras att jag har en matisskrivare med perfomerat papper.

Hej
Följdfråga .Sitter det inte A4 papper i skrivaren

I så fall får du plats med 4 biljetter på varje A 4
Sen får man göra Printer.NewPage och ställa in
start CurrentX CurrentY för nästa sida ,har
du mixtrat med fonterna får du även redovisa
hur du vill ha det i början på NewPage.

När alla 600 är färdigskrivna avslutar du med
Printer.EndDoc

Har jag fattat rätt ?

undrar
Sven

Hej Sven, tackar för snabb respons.

Pappret som jag använder är ett perfomerat papper bredden på pappret är 11 cm och höjden är 6 cm. Alltså det sitter massa sådena här på följd sk "löpbana" jag har alltså en skrivare med "trakotrmatning" om du förstår.
__________11 cm___________
/ /
/ /
6 cm /
/ /
-------------------------------- = Brytningen på pappret
/ /
/ /
6 cm /
/ /
/__________11 cm__________/

Hoppas att du föstår min skiss oxå....

Hej
Då blir mitt förslag till lösning följande,du får själv småjustera.

Private Sub Command1_Click()
Dim counter As Long 'counter är antal biljetter
NyBiljett:
Printer.FontName = "Arial"
Printer.FontSize = 10
Printer.FontBold = True
Printer.CurretX = 200
Printer.CurrentY = 300
Printer.Print "SE 02-03"
Printer.CurrentX = 400
Printer.CurrentY = 600
'skriver ut texten ifrån texbox till skrivare
Printer.Print Text1.Text; " "; Text2.Text; " "; Text6.Text
If counter > 100 Then 'antal du vill ha utskrivet
Printer.EndDoc
Else
counter = counter + 1
Printer.NewPage
Goto NyBiljett
End If

Om du eller någon tycker att koden inte är optimal
så spelar det inte någon roll,du måste i allafall vänta
på printer spoolern.

Fritt ur minnet tecknar
DS

Okej...föstår inte så mycket men det är OK, om jag vill att skrivarren skall stanna efter att den har skrivit ut en rad? Vad gör man då?

Igen
Stanna for ever eller bara momentan ?

Gör så här Nu. Ändra !
If counter > 2 Then 'skriv ut två stycken
fungerar detta Ok kan du välja hur många som helst
så länge det finns papper.

DS

Typ stanna för stunden. Tack...

Hej
Får jag gissa att du vill skriva en rad och sedan
ändra för hand i Text1 Text2 Text3 och sedan skriva vidare ?

Är det så du vill ?

Ds

Jag skulle bara vilja ställa in storlekn på pappret, som sagt.
om man kan tala om för VB att man har ett papper som är 11*5 cm

Är detta något som man har nytta av??

Printer.PaperSize =

Hej
Njaaaaaaaaaa vad skall det vara bra för,
du styr ju med X Y ,kanske det ligger nåt i det.

Orkar inte kolla har PrinterObjektet egenskapen PaperSize ?

undrar
Sven