Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
marko11 Član
Pridružen-a: Ned 14 Dec 2003 17:47 Prispevkov: 866 Aktiv.: 3.88 Kraj: Dobrepolje
|
Objavljeno: Sob Apr 22, 2017 9:28 pm Naslov sporočila: VB6 PaperSize ? |
|
|
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 |
|
|
Branez Moderator
Pridružen-a: Pon 14 Apr 2003 7:21 Prispevkov: 7772 Aktiv.: 34.85 Kraj: Koprivnica HR
|
Objavljeno: Ned Apr 23, 2017 8:30 am Naslov sporočila: |
|
|
Citiram: |
run-time error 380 "Invalid Property Value" |
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 |
|
|
marko11 Član
Pridružen-a: Ned 14 Dec 2003 17:47 Prispevkov: 866 Aktiv.: 3.88 Kraj: Dobrepolje
|
Objavljeno: Ned Apr 23, 2017 10:52 am Naslov sporočila: |
|
|
Branez je napisal/a: |
Citiram: |
run-time error 380 "Invalid Property Value" |
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 |
|
|
marko11 Član
Pridružen-a: Ned 14 Dec 2003 17:47 Prispevkov: 866 Aktiv.: 3.88 Kraj: Dobrepolje
|
Objavljeno: Pon Apr 24, 2017 9:09 pm Naslov sporočila: |
|
|
A mogoče nihče več ne dela z Visual Basicom?
lp,
|
|
Nazaj na vrh |
|
|
Branez Moderator
Pridružen-a: Pon 14 Apr 2003 7:21 Prispevkov: 7772 Aktiv.: 34.85 Kraj: Koprivnica HR
|
Objavljeno: Pon Apr 24, 2017 10:00 pm Naslov sporočila: |
|
|
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 |
|
|
igo Član
Pridružen-a: Sre 11 Okt 2006 19:11 Prispevkov: 3638 Aktiv.: 17.04
|
Objavljeno: Pon Apr 24, 2017 11:41 pm Naslov sporočila: |
|
|
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 |
|
|
blay44 Član
Pridružen-a: Ned 19 Dec 2010 18:17 Prispevkov: 603 Aktiv.: 3.71
|
Objavljeno: Tor Apr 25, 2017 7:23 pm Naslov sporočila: |
|
|
Če se prav spomnim(pa tudi vb.net) mora biti height in width tipa integer.
Probaj vrednost v tem dosegu.
Lp
|
|
Nazaj na vrh |
|
|
peterv6i Član
Pridružen-a: Tor 22 Jan 2008 13:30 Prispevkov: 116 Aktiv.: 0.59 Kraj: Izola
|
Objavljeno: Tor Apr 25, 2017 10:44 pm Naslov sporočila: |
|
|
če debugiraš kodo v kateri vrstici ti pa odleti?
|
|
Nazaj na vrh |
|
|
marko11 Član
Pridružen-a: Ned 14 Dec 2003 17:47 Prispevkov: 866 Aktiv.: 3.88 Kraj: Dobrepolje
|
Objavljeno: Sre Apr 26, 2017 11:24 am Naslov sporočila: |
|
|
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 |
|
|
blay44 Član
Pridružen-a: Ned 19 Dec 2010 18:17 Prispevkov: 603 Aktiv.: 3.71
|
Objavljeno: Sre Apr 26, 2017 12:39 pm Naslov sporočila: |
|
|
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 |
|
|
marko11 Član
Pridružen-a: Ned 14 Dec 2003 17:47 Prispevkov: 866 Aktiv.: 3.88 Kraj: Dobrepolje
|
Objavljeno: Pet Apr 28, 2017 5:31 pm Naslov sporočila: |
|
|
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 |
|
|
Branez Moderator
Pridružen-a: Pon 14 Apr 2003 7:21 Prispevkov: 7772 Aktiv.: 34.85 Kraj: Koprivnica HR
|
Objavljeno: Pet Apr 28, 2017 5:48 pm Naslov sporočila: |
|
|
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 |
|
|
blay44 Član
Pridružen-a: Ned 19 Dec 2010 18:17 Prispevkov: 603 Aktiv.: 3.71
|
Objavljeno: Sob Apr 29, 2017 6:41 pm Naslov sporočila: |
|
|
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.
Opis: |
Nastavljen tvoj format. Tiskan v datoteko.
Lahko pa tudi na tiskalnik. |
|
Velikost datoteke: |
41.8 KB |
Pogledana: |
7 krat |
|
|
|
Nazaj na vrh |
|
|
marko11 Član
Pridružen-a: Ned 14 Dec 2003 17:47 Prispevkov: 866 Aktiv.: 3.88 Kraj: Dobrepolje
|
Objavljeno: Sob Apr 29, 2017 10:37 pm Naslov sporočila: |
|
|
Lepa hvala
Citiram:
Pa ne se razburjat.
Najmanj dvakrat sem napisal prosim.
LP,
|
|
Nazaj na vrh |
|
|
|