/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
kolonder
Fra : Expert Billund


Dato : 13-02-01 10:56

Private Sub Print_Click()
Dim kol1, kol2, kol3, kol4 As String
kol1 = 2 'afstand i cm fra venstre side af Papiret
kol2 = 4
kol3 = 7
kol4 = 17
Printer.CurrentY = 2 'afstand i cm fra toppen af Papiret
Printer.FontSize = 8
Printer.ScaleMode = vbCentimeters
Printer.CurrentX = kol1
Printer.Print "nr."
Printer.CurrentX = kol2
Printer.Print "Navn"
Printer.CurrentX = kol3
Printer.Print "adresse"
Printer.CurrentX = kol4
Printer.Print "nummer"
'*******************************************
Printer.CurrentX = kol1
Printer.Print text1.text
Printer.CurrentX = kol2
Printer.Print text2.text
Printer.CurrentX = kol3
Printer.Print Text3.text
Printer.CurrentX = kol4
Printer.Print text4.text
End Sub

det var meningen at de fire felter skulle værer på en linje hvad er der galt
med koden

de skulle udskrive i fire kononder i to linge men de blive udskreve i otte
linje og 4 kolonder



 
 
Mads Andreasen (13-02-2001)
Kommentar
Fra : Mads Andreasen


Dato : 13-02-01 11:31

Hejsa

Printer.Print "et eller andet"

Indsættes der automatisk et linjeskift. brug i stedet Printer.Print "et
eller andet";

-Mads

"Expert Billund" <Billund@expert.dk> wrote in message
news:96b0cs$l4c$1@news.inet.tele.dk...
> Private Sub Print_Click()
> Dim kol1, kol2, kol3, kol4 As String
> kol1 = 2 'afstand i cm fra venstre side af Papiret
> kol2 = 4
> kol3 = 7
> kol4 = 17
> Printer.CurrentY = 2 'afstand i cm fra toppen af Papiret
> Printer.FontSize = 8
> Printer.ScaleMode = vbCentimeters
> Printer.CurrentX = kol1
> Printer.Print "nr."
> Printer.CurrentX = kol2
> Printer.Print "Navn"
> Printer.CurrentX = kol3
> Printer.Print "adresse"
> Printer.CurrentX = kol4
> Printer.Print "nummer"
> '*******************************************
> Printer.CurrentX = kol1
> Printer.Print text1.text
> Printer.CurrentX = kol2
> Printer.Print text2.text
> Printer.CurrentX = kol3
> Printer.Print Text3.text
> Printer.CurrentX = kol4
> Printer.Print text4.text
> End Sub
>
> det var meningen at de fire felter skulle værer på en linje hvad er der
galt
> med koden
>
> de skulle udskrive i fire kononder i to linge men de blive udskreve i otte
> linje og 4 kolonder
>
>



Henning Forgaard (13-02-2001)
Kommentar
Fra : Henning Forgaard


Dato : 13-02-01 15:16

Du må nok sette Printer.CurrentY til samme verdi for alle linjer du vil ha
printet på samme linje

Printer.CurrentY = 2
Printer.CurrentX = kol1
Printer.Print "nr."
Printer.CurrentY = 2
Printer.CurrentX = kol2
Printer.Print "Navn"
Printer.CurrentY = 2
Printer.CurrentX = kol3
Printer.Print "adresse"
Printer.CurrentY = 2
Printer.CurrentX = kol4
Printer.Print "nummer"


"Expert Billund" <Billund@expert.dk> wrote in message
news:96b0cs$l4c$1@news.inet.tele.dk...
> Private Sub Print_Click()
> Dim kol1, kol2, kol3, kol4 As String
> kol1 = 2 'afstand i cm fra venstre side af Papiret
> kol2 = 4
> kol3 = 7
> kol4 = 17
> Printer.CurrentY = 2 'afstand i cm fra toppen af Papiret
> Printer.FontSize = 8
> Printer.ScaleMode = vbCentimeters
> Printer.CurrentX = kol1
> Printer.Print "nr."
> Printer.CurrentX = kol2
> Printer.Print "Navn"
> Printer.CurrentX = kol3
> Printer.Print "adresse"
> Printer.CurrentX = kol4
> Printer.Print "nummer"
> '*******************************************
> Printer.CurrentX = kol1
> Printer.Print text1.text
> Printer.CurrentX = kol2
> Printer.Print text2.text
> Printer.CurrentX = kol3
> Printer.Print Text3.text
> Printer.CurrentX = kol4
> Printer.Print text4.text
> End Sub
>
> det var meningen at de fire felter skulle værer på en linje hvad er der
galt
> med koden
>
> de skulle udskrive i fire kononder i to linge men de blive udskreve i otte
> linje og 4 kolonder
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste