/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
Benjamin...
700
10
tom.kise
610
udskrivning
Fra :
Expert Billund
Dato :
21-02-01 20:06
jeg har lavet et program der udskriver en liste over mine dvd titel
eks.
title tid
-------------------------
mib xxx
60 sek. xxx
også videre
den udskrift begynder 2 cm nede på papiret detter er også fint men det jeg
gerne ville have var at når printeren begynte på side to at den så også
begyndte 2 cd nede i stede for helt oppe og at den satte titel og tid på
igen, er der nogle der kan for tælle mig hvad der er galt med min code:
On Error GoTo printERR
Dim kOL1 As String
Dim kOL2 As String
Dim kOL3 As String
Dim kOL4 As String
kOL1 = 2
kOL2 = 12
kOL3 = 18
kOL4 = 23
'--------------------------
Printer.FontSize = "8"
Printer.Orientation = "2"
Printer.ScaleMode = vbCentimeters
Printer.CurrentY = "2"
Printer.CurrentX = kOL1
Printer.Print "Titel";
Printer.CurrentX = kOL2
Printer.Print "Type";
Printer.CurrentX = kOL3
Printer.Print "System";
Printer.CurrentX = kOL4
Printer.Print "Antal cd'er"
Printer.Print " "
'linje skift
Data1.Recordset.MoveFirst
Startprintloop:
Printer.CurrentX = kOL1
Printer.Print TXTtitel.Text;
Printer.CurrentX = kOL2
Printer.Print CMBtype.Text;
Printer.CurrentX = kOL3
Printer.Print CMBsystem.Text;
Printer.CurrentX = kOL4
Printer.Print TXTcder.Text
'linje skift
Data1.Recordset.MoveNext
GoTo Startprintloop
printERR:
Data1.Refresh
Printer.EndDoc
--
Venlig Hilsen
Expert Billund
Butikstorvet 25
7190 Billund
Tlf.: 75 33 86 55
Fax.: 75 33 86 70
Email: billund@expert.dk
Søg
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177551
Tips :
31968
Nyheder :
719565
Indlæg :
6408825
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.