Problem med print i VB

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?
:(

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

Precis CurrentX och Y är felstavat.

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"

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?

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

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

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?