10. oktober 2007 - 08:30Der er
9 kommentarer og 1 løsning
udskrivning makro
Hej
Er der nogle der kan hjælpe mig her
Har et regneark som både kan være tomt eller være udfyldt. Jeg trykker på en knap der henter data fra en tekstfil.
Det er forskellige data der hentes - så det kan være fra vel 3 linier til 5000 linier ca
Det er området fra A til H og ned til sidste linie der skal udskrives ved tryk på en knap. så brugerne ikke skal tænke og gøre så meget. Dvs området skal markeres og så er det det markeder område der skal printes.
Der er forskellige brugere dvs forskellige printere(ikke nødvendigvis deres standardprinter - da den er sat op til nogle labels) Så jeg skal egentlig bare have udskriftsdialogboxen op hvor der er sat på at det er markeringen - så skal de selv vælge printer.
Desuden skal der være et hvis. Hvis Der ikke er trykket på knappen og dvs arket er tomt(Hvis A10 er tom) og man trykker på knappen skal den udskirve Fra A1:H350.
Er der nogen der i det hele taget forstår hvad jeg skriver;O) Nogen der vil hjælpe?
Public Sub SetPrintAreaAndShowPrintDialog() If ActiveSheet.Range("A10") = "" Then ActiveSheet.PageSetup.PrintArea = "A1:H350" Else ActiveSheet.PageSetup.PrintArea = "$A:$H" End If
Public Sub SetPrintAreaAndShowPrintDialog() If ActiveSheet.Range("A10") = "" Then ActiveSheet.PageSetup.PrintArea = "A1:H350" Else
lrows = Range("G10").End(xlDown).Row MsgBox (lrows) ActiveSheet.PageSetup.PrintArea = "$A1:$H" & lrows End If
Application.Dialogs(xlDialogPrint).Show End Sub Såan her fungerer det nææææsten - bortset hvis der kun står en linie Dvs I G10, så skriver den 65000 linier ud. Kan du se havd jeg gør forkert.
Den skrev alt ud dvs over 65000 linier i tilfæde af at der stod noget i A10. Der skal den kun tage alle udfyldte linier. og skrive ud fra A1 til feks H25 Hvis det er på linie 25 den sidste linie står. det går dog galt når det kun er er linie dvs fra A1 til H10
Spørg endlig ind hvis jeg forklarer det lidt rodet ;O)
Virker en kende mærkeligt, for normalt ved Excel godt, når der ikke er flere data og det er derfor normalt ikke et problem at markere hele kolonner som udskriftsområde - fungerer i øvrigt fint hos mig.
Sikker på at du ikke har noget "skrammel" stående i dit ark?
skrammel og skrammel ;O) Ja det er jeg ret sikker på
Der er selvfølgelig gitterlinier helt ned til linie 350 idet det jo er et sådan skema jeg udskriver i forbindelse med et tomt skema.
Det kode jeg har skrevet ovenfor virker dog - med undtagelse af når der kun er linie 10 der er udfyldt. Så kan den ikke finde ud af at tælle. Har du en ide om hvorledes jeg løser dette. Ser lige på det i morgen igen.
Hvis mine kommentarer hjalp, så jo. Men hvordan har du løst det?
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
