Yazdırma Sorunu

[polnet]

Printer.ScaleMode = 6 '(milimetre)
Printer.CurrentX = 13 'sut
Printer.CurrentY = 45 'sat
Printer.Print Text2.TEXT 'müş ad

Printer.CurrentX = 3 'sut
Printer.CurrentY = 50 'sat
'müş ad2
Printer.Print Text3.TEXT; Spc(70); Text4.TEXT; " "; _Text24.TEXT

Printer.CurrentX = 3 'sut
Printer.CurrentY = 55 'sat
'müş mah cad
Printer.Print Text7.TEXT; " "; Text8.TEXT

Printer.CurrentX = 3 'sut
Printer.CurrentY = 60 'sat
'müş sk no pos kod
Printer.Print Text9.TEXT; " "; Text11.TEXT; " "; Text14.TEXT

Printer.CurrentX = 3 'sut
Printer.CurrentY = 65 'sat
'müş sk no pos kod
Printer.Print Text15.TEXT; " / "; Text16.TEXT

Printer.CurrentX = 3 'sut
Printer.CurrentY = 70 'sat
'müş ver no dai
Printer.Print Text5.TEXT; " - "; Text6.TEXT; Spc(70); Text10.TEXT; " "; Text12.TEXT

'fatura içerik kısmı
'sat 1
Printer.CurrentX = 3 'sut
Printer.CurrentY = 90 'sat
Printer.Print FATURA_ILK.Text13; " "; FATURA_ILK.Text17; " "; FATURA_ILK.Text18; " "; FATURA_ILK.Text19; " "; FATURA_ILK.Text20; " "; FATURA_ILK.Text21

'sat 2
Printer.CurrentX = 3 'sut
Printer.CurrentY = 95 'sat
Printer.Print FATURA_IKI.Text22; " "; FATURA_IKI.Text23; " "; FATURA_IKI.Text25; " "; FATURA_IKI.Text26; " "; FATURA_IKI.Text27; " "; FATURA_IKI.Text29

'sat 3
Printer.CurrentX = 3 'sut
Printer.CurrentY = 100 'sat
Printer.Print FATURA_UC.Text30; " "; FATURA_UC.Text31; " "; FATURA_UC.Text32; " "; FATURA_UC.Text33; " "; FATURA_UC.Text34; " "; FATURA_UC.Text35

'sat 4
Printer.CurrentX = 3 'sut
Printer.CurrentY = 105 'sat
Printer.Print FATURA_DORT.Text36; " "; FATURA_DORT.Text37; " "; FATURA_DORT.Text38; " "; FATURA_DORT.Text39; " "; FATURA_DORT.Text40; " "; FATURA_DORT.Text41

'sat 5
Printer.CurrentX = 3 'sut
Printer.CurrentY = 110 'sat
Printer.Print FATURA_BES.Text42; " "; FATURA_BES.Text43; " "; FATURA_BES.Text44; " "; FATURA_BES.Text45; " "; FATURA_BES.Text46; " "; FATURA_BES.Text47

'sat 6
Printer.CurrentX = 3 'sut
Printer.CurrentY = 110 'sat
Printer.Print FATURA_ALTI.Text48; " "; FATURA_ALTI.Text49; " "; FATURA_ALTI.Text50; " "; FATURA_ALTI.Text51; " "; FATURA_ALTI.Text52; " "; FATURA_ALTI.Text53

'sat 7
Printer.CurrentX = 3 'sut
Printer.CurrentY = 115 'sat
Printer.Print FATURA_YEDI.Text54; " "; FATURA_YEDI.Text55; " "; FATURA_YEDI.Text56; " "; FATURA_YEDI.Text57; " "; FATURA_YEDI.Text58; " "; FATURA_YEDI.Text59

'sat 8
Printer.CurrentX = 3 'sut
Printer.CurrentY = 120 'sat
Printer.Print FATURA_SEKIZ.Text60; " "; FATURA_SEKIZ.Text61; " "; FATURA_SEKIZ.Text62; " "; FATURA_SEKIZ.Text63; " "; FATURA_SEKIZ.Text64; " "; FATURA_SEKIZ.Text65

'sat 9
Printer.CurrentX = 3 'sut
Printer.CurrentY = 125 'sat
Printer.Print FATURA_DOKUZ.Text66; " "; FATURA_DOKUZ.Text67; " "; FATURA_DOKUZ.Text68; " "; FATURA_DOKUZ.Text69; " "; FATURA_DOKUZ.Text70; " "; FATURA_DOKUZ.Text71

'sat 10
Printer.CurrentX = 3 'sut
Printer.CurrentY = 130 'sat
Printer.Print FATURA_ON.Text72; " "; FATURA_ON.Text73; " "; FATURA_ON.Text74; " "; FATURA_ON.Text75; " "; FATURA_ON.Text76; " "; FATURA_ON.Text77

Printer.EndDoc

Yukarıdaki gibi yazdırma işlemi yaptırdım Fatura içerik kısmını yazdırırken sorun yaşıyorum. Fatura içerik kısmında;

yapmak istediğim tam olarak ise;
mesela,
text13 text17 text18 text19 text20 text21
text22 text23 text24 text25 text26 text27
text30 text31 text32 text33 text34 text35
text36 text37 text38 text39 text40 text41

bu. bu şekilde nasıl yazdırabilirim? ama bunu yaparken Printer.ScaleMode = 6 '(milimetre) ile milimetrik yapmak istiyorum. nasıl yapabilirim? printer.currentx ve printer.currenty değerlerini mililetre olarak girmek istiyorum.


Diğer sorumda

ekrana 210mm * 297mm boyutlarında dikdörtgen çizdirmek ve içini 5mm ara ile dikey ve yatay çizgi çizdirmek. nasıl yapabilirim?

[polnet]

Merhaba,

Yazdırma sorunumla ilgili, bir kısmını çözdüm. kullandığum kod ise;

Printer.ScaleMode = 6
Printer.CurrentX = 3 'sut
Printer.CurrentY = 130 'sat

Printer.Print FATURA_ON.Text72; CurrentX = 15; FATURA_ON.Text73; _
CurrentX = 120; FATURA_ON.Text74; CurrentX = 160; FATURA_ON.Text75; _
CurrentX = 175; FATURA_ON.Text76; CurrentX = 190; FATURA_ON.Text77

Şimdide farklı bir sıkıntı oldu,
[text72] False[text73] False[text74] False[Text75] False[text76] False[Text77]

kağıt üzerinde text verilerini yazıyor ama başlarına False yazıyor. Bunu çözemedim?

[polnet]

Merhaba,

Yazdırma sorunumla ilgili, bir kısmını çözdüm. kullandığum kod ise;

Printer.ScaleMode = 6
Printer.CurrentX = 3 'sut
Printer.CurrentY = 130 'sat

Printer.Print FATURA_ON.Text72; CurrentX = 15; FATURA_ON.Text73; _
CurrentX = 120; FATURA_ON.Text74; CurrentX = 160; FATURA_ON.Text75; _
CurrentX = 175; FATURA_ON.Text76; CurrentX = 190; FATURA_ON.Text77

Şimdide farklı bir sıkıntı oldu,
[text72] False[text73] False[text74] False[Text75] False[text76] False[Text77]

kağıt üzerinde text verilerini yazıyor ama başlarına False yazıyor. Bunu çözemedim?