www.elektronik.si Seznam forumov www.elektronik.si
Forum o elektrotehniki in računalništvu
 
 PomočPomoč  IščiIšči  Seznam članovSeznam članov  SkupineSkupine  StatisticsStatistika  AlbumAlbum  DatotekeFilemanager DokumentacijaDocDB LinksPovezave   Registriraj seRegistriraj se 
  PravilaPravila  LinksBolha  PriponkePriponke  KoledarKoledar  ZapiskiZapiski Tvoj profilTvoj profil Prijava za pregled zasebnih sporočilPrijava za pregled zasebnih sporočil PrijavaPrijava 

VB6 PaperSize ?

 
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Programska oprema
Poglej prejšnjo temo :: Poglej naslednjo temo  
Avtor Sporočilo
marko11
Član
Član



Pridružen-a: Ned 14 Dec 2003 17:47
Prispevkov: 866
Aktiv.: 3.90
Kraj: Dobrepolje

PrispevekObjavljeno: Sob Apr 22, 2017 9:28 pm    Naslov sporočila:  VB6 PaperSize ? Odgovori s citatom

Hi
Delam še vedno z VB6 na Win10, tiskalnik HP C5280

Nikakor mi ne uspe izpis na poseben format lista z merami 80mm x 250mm.
Vedno mi javlja napako error 380.

Probal sem razne variante pa brez uspeha, če je kdo imel podobne težave, prosim za nasvet.

Lp marko

Koda:

Printer.PaperSize = 256        '9 = A4
Printer.ScaleMode = 1          ' 1 = Twips,  6 = milimetri
Printer.Height = (250 * 56.69)
Printer.Width = (80 * 56.69)

Printer.FontName = "arial"
Printer.FontSize = 10
Printer.FontBold = True
Rem 1= pokončno,  2= ležeče
Printer.Orientation = 1

Printer.CurrentX = 50: Printer.CurrentY = 30: Printer.Print "xxx"

Printer.EndDoc
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Branez
Moderator
Moderator



Pridružen-a: Pon 14 Apr 2003 7:21
Prispevkov: 7768
Aktiv.: 34.98
Kraj: Koprivnica HR

PrispevekObjavljeno: Ned Apr 23, 2017 8:30 am    Naslov sporočila:   Odgovori s citatom

Citiram:
run-time error 380 "Invalid Property Value"
Question
Koda:
Rem 1= pokončno,  2= ležeče

Ne vem kako VB6 prebavi naše črke.

Poskusi z:
Koda:
Rem 1 = portrait 2 = landscape

_________________
The true sign of intelligence is not knowledge but imagination.
Creativity is intelligence having fun!

Albert Einstein
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
marko11
Član
Član



Pridružen-a: Ned 14 Dec 2003 17:47
Prispevkov: 866
Aktiv.: 3.90
Kraj: Dobrepolje

PrispevekObjavljeno: Ned Apr 23, 2017 10:52 am    Naslov sporočila:   Odgovori s citatom

Branez je napisal/a:
Citiram:
run-time error 380 "Invalid Property Value"
Question
Koda:
Rem 1= pokončno,  2= ležeče

Ne vem kako VB6 prebavi naše črke.

Poskusi z:
Koda:
Rem 1 = portrait 2 = landscape


Rem ali pol narekovaja to je samo komentar.
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
marko11
Član
Član



Pridružen-a: Ned 14 Dec 2003 17:47
Prispevkov: 866
Aktiv.: 3.90
Kraj: Dobrepolje

PrispevekObjavljeno: Pon Apr 24, 2017 9:09 pm    Naslov sporočila:   Odgovori s citatom

A mogoče nihče več ne dela z Visual Basicom?

lp,
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Branez
Moderator
Moderator



Pridružen-a: Pon 14 Apr 2003 7:21
Prispevkov: 7768
Aktiv.: 34.98
Kraj: Koprivnica HR

PrispevekObjavljeno: Pon Apr 24, 2017 10:00 pm    Naslov sporočila:   Odgovori s citatom

Zazipaj ves VB project in ga prilepi tu gor. Takole ugibati kaj se dogaja je težko.
_________________
The true sign of intelligence is not knowledge but imagination.
Creativity is intelligence having fun!

Albert Einstein
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
igo
Član
Član



Pridružen-a: Sre 11 Okt 2006 19:11
Prispevkov: 3638
Aktiv.: 17.11

PrispevekObjavljeno: Pon Apr 24, 2017 11:41 pm    Naslov sporočila:   Odgovori s citatom

Kaj pa decimalna vejica 56,69 namesto decimalne pike 56.69 ?

Ali pa neposredno 14172.5 ( ali 14172,5 ali celo za poskus kar 14172) in 4,535.2 ?

_________________
Teoretično je praksa posledica teorije, praktično je pa ravno obratno. (igo 2001)
LP, Igor
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
blay44
Član
Član



Pridružen-a: Ned 19 Dec 2010 18:17
Prispevkov: 603
Aktiv.: 3.73

PrispevekObjavljeno: Tor Apr 25, 2017 7:23 pm    Naslov sporočila:   Odgovori s citatom

Če se prav spomnim(pa tudi vb.net) mora biti height in width tipa integer.
Probaj vrednost v tem dosegu.

Lp
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
peterv6i
Član
Član



Pridružen-a: Tor 22 Jan 2008 13:30
Prispevkov: 116
Aktiv.: 0.59
Kraj: Izola

PrispevekObjavljeno: Tor Apr 25, 2017 10:44 pm    Naslov sporočila:   Odgovori s citatom

če debugiraš kodo v kateri vrstici ti pa odleti?
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo
marko11
Član
Član



Pridružen-a: Ned 14 Dec 2003 17:47
Prispevkov: 866
Aktiv.: 3.90
Kraj: Dobrepolje

PrispevekObjavljeno: Sre Apr 26, 2017 11:24 am    Naslov sporočila:   Odgovori s citatom

peterv6i je napisal/a:
če debugiraš kodo v kateri vrstici ti pa odleti?


Takoj v prvi vrstici : Printer.PaperSize

Koda:

Private Sub Command9_Click()

Printer.PaperSize = vbPRPSUser
Printer.ScaleMode = 6  ' skala je v mm
Printer.ScaleHeight = 250
Printer.ScaleWidth = 83

Printer.FontName = "arial"
Printer.FontSize = 10
Printer.FontBold = True

Printer.Orientation = 1

Printer.CurrentX = 50: Printer.CurrentY = 120: Printer.Print "xxx"

Printer.EndDoc

End Sub
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
blay44
Član
Član



Pridružen-a: Ned 19 Dec 2010 18:17
Prispevkov: 603
Aktiv.: 3.73

PrispevekObjavljeno: Sre Apr 26, 2017 12:39 pm    Naslov sporočila:   Odgovori s citatom

Mislim da funkcije papreSize = USER na moremo sami določi med programiranjem v vb6.
V vb.net bi šlo takole:

Dim mojFormat As New System.Drawing.Printing.PaperSize("Custom Paper Size", XXX, YYY)

Kateri API za VB6 uporabiti pa ne vem.
Čisto programsko bi šlo/je šlo pri meni/ tkole:

Printer.PrintQuality = vbPRPQDraft
Printer.CurrentX = XXXXXXX
Printer.CurrentY = YYYYYYY
Printer.Print "Bejzik je zakon"
Printer.EndDoc

Kako pa si prepričal vb6, da dela v win10? A razni ocx-i tudi delujejo.

LP
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
marko11
Član
Član



Pridružen-a: Ned 14 Dec 2003 17:47
Prispevkov: 866
Aktiv.: 3.90
Kraj: Dobrepolje

PrispevekObjavljeno: Pet Apr 28, 2017 5:31 pm    Naslov sporočila:   Odgovori s citatom

blay44 je napisal/a:
Mislim da funkcije papreSize = USER na moremo sami določi med programiranjem v vb6.
V vb.net bi šlo takole:

Dim mojFormat As New System.Drawing.Printing.PaperSize("Custom Paper Size", XXX, YYY)

Kateri API za VB6 uporabiti pa ne vem.
Čisto programsko bi šlo/je šlo pri meni/ tkole:

Printer.PrintQuality = vbPRPQDraft
Printer.CurrentX = XXXXXXX
Printer.CurrentY = YYYYYYY
Printer.Print "Bejzik je zakon"
Printer.EndDoc

LP


@blay44 Lepo te prosim, da vidim, če pri tebi s tvojim programom VB.NET to deluje?
Prosim, če odrežeš en papir dimenzije 80mm x 250mm, in na njega napiši nekaj xxx na različne lokacije, pa vstavi ta listič v tiskalnik pa da vidimo, če bo to tiskalnik sprejel oziroma izpisal.

lp, in hvala
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Branez
Moderator
Moderator



Pridružen-a: Pon 14 Apr 2003 7:21
Prispevkov: 7768
Aktiv.: 34.98
Kraj: Koprivnica HR

PrispevekObjavljeno: Pet Apr 28, 2017 5:48 pm    Naslov sporočila:   Odgovori s citatom

Koda:
Private Sub Command9_Click()

Printer.ScaleMode = 6  ' skala je v mm
Printer.ScaleHeight = 250
Printer.ScaleWidth = 83

Printer.FontName = "arial"
Printer.FontSize = 10
Printer.FontBold = True

Printer.Orientation = 1

Printer.CurrentX = 50: Printer.CurrentY = 120: Printer.Print "xxx"

Printer.EndDoc

End Sub


Čitaj tukaj.
Citiram:
Setting the Height or Width property of the Printer object automatically sets PaperSize to vbPRPSUser.

_________________
The true sign of intelligence is not knowledge but imagination.
Creativity is intelligence having fun!

Albert Einstein
Nazaj na vrh
Skrit Poglej uporabnikov profil Pošlji zasebno sporočilo Obišči avtorjevo spletno stran
blay44
Član
Član



Pridružen-a: Ned 19 Dec 2010 18:17
Prispevkov: 603
Aktiv.: 3.73

PrispevekObjavljeno: Sob Apr 29, 2017 6:41 pm    Naslov sporočila:   Odgovori s citatom

marko11 je napisal/a:


@blay44 Lepo te prosim, da vidim, če pri tebi s tvojim programom VB.NET to deluje?
Prosim, če odrežeš en papir dimenzije 80mm x 250mm, in na njega napiši nekaj xxx na različne lokacije, pa vstavi ta listič v tiskalnik pa da vidimo, če bo to tiskalnik sprejel oziroma izpisal.

lp, in hvala


A da zgleda takole: Tole je z robovi. Lahko pa nastaviš tudi brez. Pa ne se razburjat.



krneki.jpg
 Opis:
Nastavljen tvoj format. Tiskan v datoteko.
Lahko pa tudi na tiskalnik.
 Velikost datoteke:  41.8 KB
 Pogledana:  7 krat

krneki.jpg


Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
marko11
Član
Član



Pridružen-a: Ned 14 Dec 2003 17:47
Prispevkov: 866
Aktiv.: 3.90
Kraj: Dobrepolje

PrispevekObjavljeno: Sob Apr 29, 2017 10:37 pm    Naslov sporočila:   Odgovori s citatom

Lepa hvala



    Citiram:
    Pa ne se razburjat.

Najmanj dvakrat sem napisal prosim.

LP,
Nazaj na vrh
Odsoten Poglej uporabnikov profil Pošlji zasebno sporočilo Pošlji E-sporočilo
Pokaži sporočila:   
Objavi novo temo   Odgovori na to temo   Printer-friendly version    www.elektronik.si Seznam forumov -> Programska oprema Časovni pas GMT + 2 uri, srednjeevropski - poletni čas
Stran 1 od 1

 
Pojdi na:  
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu

Uptime: 48 dni


Powered by phpBB © 2001, 2005 phpBB Group