---
title: "Problem med print i VB"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/86496-problem-med-print-i-vb"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "saw"
published: "2003-09-20T10:15:20.000Z"
updated: "2003-09-20T18:00:00.000Z"
replies: 7
views: 262
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/86496-problem-med-print-i-vb"
---

# Problem med print i VB

## #1 — saw, 2003-09-20T10:15Z

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

Permalänk: https://www.webforum.nu/p/86496

## #2 — Josef, 2003-09-20T10:49Z

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

Permalänk: https://www.webforum.nu/p/1163070

## #3 — PsyDonia, 2003-09-20T12:06Z

Precis CurrentX och Y är felstavat.

Permalänk: https://www.webforum.nu/p/1163088

## #4 — PsyDonia, 2003-09-20T12:07Z

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"

Permalänk: https://www.webforum.nu/p/1163090

## #5 — saw, 2003-09-20T12:30Z

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?

Permalänk: https://www.webforum.nu/p/1163100

## #6 — Nexus86, 2003-09-20T12:39Z

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

Permalänk: https://www.webforum.nu/p/1163103

## #7 — Nexus86, 2003-09-20T12:41Z

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

Permalänk: https://www.webforum.nu/p/1163104

## #8 — saw, 2003-09-20T18:00Z

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?

Permalänk: https://www.webforum.nu/p/1163236

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/86496-problem-med-print-i-vb