|
|
 | 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
>
>
| |
|
|