/ 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
Font ??
Fra : Ole John Hansen


Dato : 13-03-01 15:47

Endnu et spørgsmål, og iøvrigt tak for flere gode svar herfra.

Jeg har en form med noget tekst der skal udskrives på printer.
Hvorledes navigere jeg rundt på udskriftsiden, hvorledes sætter jeg
skriftstørrelse,
Fontnavn, Bold, understreget m.m.m.

M.v.h.
Ole J. Hansen



 
 
Jens Andersen (13-03-2001)
Kommentar
Fra : Jens Andersen


Dato : 13-03-01 19:17

Dim p As Printer

Private Sub Command1_Click()

'Her laver man fed skrift
p.FontBold = True
'her kommer man 500 ned på papiret
p.CurrentY = 500
'her kommer man 500 hen på papiret
p.CurrentX = 500
'her bliver papiret lagt vandret hvis man vil det
p.Orientation = "2"
'her skriver jeg hej på papiret
p.Print "Hej"
'vigtig ! her starter jeg med at skrive ud
p.EndDoc

End Sub

Roser sendes til
Jens
til@infojens.dk




Jens Andersen (13-03-2001)
Kommentar
Fra : Jens Andersen


Dato : 13-03-01 19:22

Glemte helt.....Billedere

Dim a as Picture

Set a = LoadPicture(Filnavn)

Printer.PaintPicture a, 0, 0, Printer.Width, Printer.Height





N/A (13-03-2001)
Kommentar
Fra : N/A


Dato : 13-03-01 21:47



Tomas Christiansen (13-03-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 13-03-01 21:47

Ole John Hansen skrev:
> Jeg var for hurtig med ROSERNE
> Det virker ikke

> > Dim a as Picture
> > Set a = LoadPicture(Filnavn)
> > Printer.PaintPicture a, 0, 0, Printer.Width, Printer.Height

Prøv i stedet med noget i retning af :

Printer.PaintPicture LoadPicture(filnavn), 0, 0, Printer.Width,
Printer.Height

-------
Tomas




Asbjørn Sloth Tønnes~ (14-03-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 14-03-01 21:23

> > Dim a as Picture
> >
> > Set a = LoadPicture(Filnavn)
> >
> > Printer.PaintPicture a, 0, 0, Printer.Width, Printer.Height

Set a.Picture = LoadPicture(Filnavn)



N/A (14-03-2001)
Kommentar
Fra : N/A


Dato : 14-03-01 21:43



Asbjørn Sloth Tønnes~ (14-03-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 14-03-01 21:43

Det er p der ikke virker
brug Printer som er defineret på forhånd

With Printer
'Her laver man fed skrift
.FontBold = True
'her kommer man 500 ned på papiret
.CurrentY = 500
'her kommer man 500 hen på papiret
.CurrentX = 500
'her bliver papiret lagt vandret hvis man vil det
.Orientation = "2"
'her skriver jeg hej på papiret
.Print "Hej"
'vigtig ! her starter jeg med at skrive ud
.EndDoc
End With

Asbjørn

PS:
Hjælpen blev fundet i
Visual Basic
Tips og Tricks
Kapitel 10: Printerstyring
http://www.bogservice.dk/Vis_produkt.asp?ISBN=87-7843-172-7



Asbjørn Sloth Tønnes~ (15-03-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 15-03-01 14:00

det er Twip der er standard måleenhed.

With Printer
' 0 User
' 1 Twip (standard)
' 2 Point
' 3 Pixel
' 4 Character
' 5 Inch
.ScaleMode = 6 ' Millimeter
' 7 Centimeter
'Her laver man fed skrift
.FontBold = True
'her kommer man 500 Twip ned på papiret
.CurrentY = ' 1,5 cm
'her kommer man 500 Twip hen på papiret
.CurrentX = 15 ' 1,5 cm
'her bliver papiret lagt vandret hvis man vil det
.Orientation = "2"
'her skriver jeg hej på papiret
.Print "Hej"
'vigtig ! her starter jeg med at skrive ud
.EndDoc
End With

> Asbjørn



Asbjørn Sloth Tønnes~ (18-03-2001)
Kommentar
Fra : Asbjørn Sloth Tønnes~


Dato : 18-03-01 09:06

> det er Twip der er standard måleenhed.
>
> With Printer
> ' 0 User
> ' 1 Twip (standard)
> ' 2 Point
> ' 3 Pixel
> ' 4 Character
> ' 5 Inch
> .ScaleMode = 6 ' Millimeter
> ' 7 Centimeter
> 'Her laver man fed skrift
> .FontBold = True
> 'her kommer man 500 Twip ned på papiret
> .CurrentY = ' 1,5 cm
> 'her kommer man 500 Twip hen på papiret
> .CurrentX = 15 ' 1,5 cm
> 'her bliver papiret lagt vandret hvis man vil det
> .Orientation = "2"
> 'her skriver jeg hej på papiret Husk virker kun hvis man skriver
Printer.Print
> Printer.Print "Hej"
> 'vigtig ! her starter jeg med at skrive ud
> .EndDoc
> End With
>
> > Asbjørn
>
>



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