Problem med print i VB

7 svar · 248 visningar · startad av saw 20 sep. 2003

sawMedlem sedan mars 20011 880 inlägg

Frågan20 sep. 2003 10:15#1

Efter en krach i datorn (utan backup), så står man ju som ett fån när det gäller programmeringen. Alla fina koder försvann.
Så det gäller att börja om ifrån början igen med min app.
Dock misstänker jag att jag har fått en dålig installation.

Mina stora problem just nu är att skriva ut till printern. Jag får inte skrivaren att reagera på marginalen (CurentX).

Är det någon referens som jag borde lägga till?

När jag skriver t ex Printer och lägger till en punkt , så öppnas ju en automeny där man kan lägga till egenskaper.

I detta fallet t ex print, alltså printer.print.
Detta finns inte i min autolist...
Jag kan alltså inte skriva:

with printer
.print
.CurentX = 3.5
.curentY  =2.35
.Print "HEJA"
end with

Kan det vara det som ställer till mitt problem, att scriptet inte reagera på marginalen(CurentX)?

I min autolist så finns det naturligtvis en massa andra agrument (CurrentX, CurrentY osv)
Vad tror Ni?
:(

JosefMedlem sedan mars 20023 561 inlägg

20 sep. 2003 10:49#2

Jag tror att du ska använda CurrentX & CurrentY istället.

PsyDoniaMedlem sedan maj 2003924 inlägg

20 sep. 2003 12:06#3

Precis CurrentX och Y är felstavat.

PsyDoniaMedlem sedan maj 2003924 inlägg

20 sep. 2003 12:07#4

med With är väl segare än utan with

segare
with printer
.print
.CurentX = 3.5
.curentY =2.35
.Print "HEJA"
end with

snabbare tror jag.
printer.print
printer.CurentX = 3.5
printer.curentY =2.35
printer.Print "HEJA"

sawMedlem sedan mars 20011 880 inlägg

20 sep. 2003 12:30#5

Nu när jag skrev, så stavade jag tydligen fel, men kontentan är ju:
När jag skriver printer. så dyker ju autolisten upp och där hittar jag inte agrumentet print.
Det är just det jag grunnar på.
Kan ni inte testa i eran VB och se om ni inte får med agrumentet .print?

Nexus86Medlem sedan okt. 20023 030 inlägg

20 sep. 2003 12:39#6

PsyDonia skrev:

med With är väl segare än utan with

segare
with printer
.print
.CurentX = 3.5
.curentY =2.35
.Print "HEJA"
end with

snabbare tror jag.
printer.print
printer.CurentX = 3.5
printer.curentY =2.35
printer.Print "HEJA"

Nope..

http://vbfibre.persistentrealities.com/index.php?category=4&item=27

Nexus86Medlem sedan okt. 20023 030 inlägg

20 sep. 2003 12:41#7

.Print ska inte synas i den där listan. Den gör inte heller det på andra objekt som även de kan använda print, som t.ex. formulär, pictureboxar, m.m..

sawMedlem sedan mars 20011 880 inlägg

20 sep. 2003 18:00#8

Detta är min kod. Jag är inte f-n till att få storre marginal på vänstersidan.

Dim Hela As Variant, Bit

    Hela = Split(frMultiLanguage.txtSv.Text, vbTab)
    frMultiLanguage.Info.Caption = "Skriver ut Svensk språkfil för: 
" & frMultiLanguage.StatusBar1.Panels(4).Text & "   " & "   " & Date
    Dim i As Integer, Y As Single, X As Single

    Printer.ScaleMode = 7 'Centmeter
    Printer.CurrentX = 3.5:
    Printer.CurrentY = 2.5

    Y = Printer.CurrentY
    X = Printer.CurrentX

    Printer.FontName = "MS Sans Serif"
    Printer.FontBold = True
    Printer.FontSize = 14
    Printer.CurrentX = (Printer.ScaleWidth / 2 - HWidth) - 7
    Printer.Print "Svensk Språkfil för: " & 
frMultiLanguage.StatusBar1.Panels(4).Text & vbTab & Date

    Printer.FontBold = False
    Printer.FontSize = 8
    Printer.Print
    Printer.CurrentX = X
        For i = 0 To UBound(Hela)
            Printer.CurrentX = X
            Bit = Hela(i)
            Printer.CurrentX = X
            Printer.Print Replace(Bit, "<BR>", vbCrLf)
        Next   
    Printer.Print
    Printer.EndDoc

Tycker ni att det finns något fel i denna koden?