printa

12 svar · 419 visningar · startad av theguru 3 sep. 2003

theguruMedlem sedan juli 2000411 inlägg

Trådstart3 sep. 2003 12:38#1

Nån som vet nåt smart sätt att printa ut värden på papper
på desigant snyggt sätt.
Jag använder alltså ingen databas utan a´har vädena i applicaktionen och vill bara printa ut dem, men de måste placeras ut på ett visst sätt och kan inte bara radas upp.
Jag brukar använda Crystal report men då måste man väl ha värdena i en databas

Så hur gör jag i detta fall nån som har nåt bra tips.

PsyDoniaMedlem sedan maj 2003924 inlägg

3 sep. 2003 14:02#2

använd kommandot printer.print.

men du måste läsa lite om printer.currentX och currentY och det är en hel del inställningar som du måste ladda i printer.print.

theguruMedlem sedan juli 2000411 inlägg

4 sep. 2003 07:09#3

ok har du nåt bra förslag på hur jag enkelt plockat ut kordinaten på ett A4 det går ju men det blir väldigt pyssligt.
Har du nåt tricks?

theguruMedlem sedan juli 2000411 inlägg

4 sep. 2003 14:17#4

Jag jobbar på en teori om att jag ska skriva ut currentX,currentY
men får det inte att funka.
Hur ska jag göra för att den ska skriva ut alla kordinat på ett A4,
för då vet jag sen hur jag ska placera de värden jag vill lägga.

Otroligt tacksam för tips

Nexus86Medlem sedan okt. 20023 030 inlägg

4 sep. 2003 17:47#5

Alla koordinater på ett A4? Är inte det väldigt många?

PsyDoniaMedlem sedan maj 2003924 inlägg

4 sep. 2003 18:06#6

Printer.ScaleMode = vbMillimeters
Printer.FontSize = 10
Printer.CurrentX = "X Korrdinat"
Printer.CurrentY =  "Y Kordinat"
Printer.Print "Texten du vill skriva ut"
Printer.EndDoc

testa med lite sånt här.

PsyDoniaMedlem sedan maj 2003924 inlägg

4 sep. 2003 18:11#7

Sen om du vill göra lite snyggt kan man lägga till.

Printer.Line (1, 1)-(190, 290), ,B

PsyDoniaMedlem sedan maj 2003924 inlägg

4 sep. 2003 18:16#8

Så här om du ska ha mer text t.ex.

Printer.ScaleMode = vbMillimeters
Printer.Line (1, 1)-(190, 290), , B
Printer.FontSize = 10
Printer.CurrentX = 5
Printer.CurrentY = 5
Printer.Print "Texten du vill skriva ut"
Printer.FontSize = 10
Printer.CurrentX = 5
Printer.CurrentY = 10
Printer.Print "Andra Texten du vill skriva ut"
Printer.EndDoc

nikoMedlem sedan juni 20022 599 inlägg

4 sep. 2003 18:21#9

Hyfsad snabbguide: http://www.devarticles.com/art/1/111

theguruMedlem sedan juli 2000411 inlägg

5 sep. 2003 06:24#10

jo om men det var nog ungefär så här långt jag kommit.
Vad jag vill göra är att skriva ut kordinaten x och y på pappret
så att jag ser var på pappret det ligger alltså typ:

0,0;0,10;0,20;
1,0;1,10;1,20

och då skapa en loop som gör detta över hela a4.
Hur gör jag detta, eller finns det kanske en sådan kordinatkarta nånstans som jag kan ta?

theguruMedlem sedan juli 2000411 inlägg

5 sep. 2003 08:55#11

till Nexus86
just det är många kordinate det är däför jag vill ha alla utskrivna
för att slippa gissa när jag sedan ska speca vart jag vill placera info :-) .

theguruMedlem sedan juli 2000411 inlägg

5 sep. 2003 13:42#12

problemet är nu avklarat jag mätte med linjal ;-)

PsyDoniaMedlem sedan maj 2003924 inlägg

5 sep. 2003 14:00#13


Printer.ScaleMode = vbMillimeters
Printer.FontSize = 10

dim i
for i =0 to 290
Printer.CurrentX = 0
Printer.CurrentY = i
Printer.Print "11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
next i

Printer.EndDoc

typ så eller men rätt onödigt.